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ABSTRACT 


The  conceptual  phase  of  a  helicopter  design 
includes  comparison  of  configurations  which  will  meet 
the  specified  performance  requirements.  To  perform 
this  comparison,  the  designer  must  have  the  proper 
tools  at  hand.  This  thesis  presents  an  interactive 
computer  program  for  the  conceptual  design  of  tandem 
rotor  helicopters.  It  is  intended  to  complement  the 
existing  single  rotor  helicopter  design  program  written 
for  the  Helicopter  Design  course,  AE-4306 .  taught  at 
the  Naval  Postgraduate  School,  Monterey,  California. 

This  program  manages  the  myriad  of  Interrelated 
parameters  by  prompting  for  input,  providing  the 
opportunity  for  changes,  and  displaying  the  results. 
This  relieves  the  (student)  designer  of  the  tedious 
calculations  and  bookkeeping,  thus  allowing  time  for  a 
more  thorough  analysis  of  the  design. 
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I .  INTRODUCTION 


A.  BACKGROUND 

Helicopter  Design,  AE-4306,  as  taught  at  the  Naval 
Postgraduate  School  requires  the  "Conceptual  Design"  of 
a  specific  mission-capable  helicopter  as  one  of  the 
course  requirements. 

Conceptual  Design  is  the  first  of  five  phases  where 
configurations  are  compared;  cost,  weight  and  size  are 
estimated;  feasibility  is  studied;  and  then  follow-on 
recommendations  are  made  [Ref.  1].  It  Is  the  first  of 
these,  comparison  of  configurations,  which  prompted 
this  thesis. 

Tandem  rotor  helicopters  have  been  successfully 
employed  since  March  of  1945  when  the  PV-3  Dogship  was 
developed  for  the  U.S.  Navy.  As  with  all  else  in 
aviation,  humble  beginnings  give  way  to  technology  and 
ingenuity,  so  that  by  the  mid  1960’s,  Boeing  Vertol  had 
developed  the  H-46  Sea  Knight  and  H-47  Chinook.  Both 
are  still  currently  In  use,  flying  today  in  all  four 
U.S.  armed  services,  various  commercial  operations 
(logging,  oil  production,  etc.)  as  well  as  servicing  in 
other  countries  such  as  Japan,  Canada,  Great  Britain 
and  Sweden. 

To  the  casual  observer  the  appeal  of  the  tandem 
rotor  scheme  is  obvious--both  rotors  provide  thrust  in 
the  correct  direction  (up)  and  therefore  a  fraction  of 
the  power  isn’t  wasted  pushing  the  helicopter  sideways, 
as  in  the  tail  rotor  configuration.  Although  somewhat 
true,  this  observation  does  require  clarification. 
Tall  rotors  typically  absorb  10  to  20  percent  of  the 
engine  power  required  to  hover  [Ref.  2].  This 
decreases  in  forward  flight  because  of  translational 
lift  effects  which  produce  a  decrease  in  main  rotor 
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torque.  This  provides  a  slight  reduction  in  tail  rotor 
power.  Tandems  also  have  a  power  penalty  due  to 
interference  effects  found  where  the  two  rotor  disks 
overlap.  Analytically,  this  is  accounted  for  by 
correcting  induced  power  with  a  "rotor  interference 
factor",  K,  which  has  been  determined  empirically  to  be 
a  function  of  the  rotor  shaft  spacing  ratio  [Ref.  3  and 
Ref.  4].  For  forward  flight,  another  factor  must  be 
included,  Ku,  the  "induced  power  correction  factor".  A 
combination  of  these  factors  results  in  losses 
comparable  to  those  of  the  tail  rotor  configuration, 
depending  on  the  regime  of  flight.  It  is  noticeable 
that  tandems  appear  better  in  hover  and  low  forward 
velocities  with  the  single  rotor  having  advantages  at 
medium  to  high  forward  velocity.  However,  these 
apparent  respective  advantages  are  not  clearly  defined, 
nor  are  they  easily  quantified. 

Reference  [5]  is  an  interactive  program  for 
conceptual  helicopter  design,  but  is  restricted  to  the 
single  rotor  configuration.  This  thesis  project  sought 
to  complete  the  designer’s  "tool  box"  with  the 
development  of  a  Tandem  Rotor  Helicopter  Design 
program.  Configuration  selection  could  then  be  based 
upon  design  superiority  and  mission  requirement  rather 
than  philosophical  whim. 

Aside  from  the  nebulous  factors  discussed  above, 
there  are  distinct  advantages  and  disadvantages  to  a 
tandem  rotor  system.  Some  advantages  of  the  tandem 
rotor  design  are: 

-  Anti-torque  is  encumbent  in  the  counter¬ 
rotating  rotor  system. 

-  No  tail  rotor  losses  or  side  force  that 
require  compensation. 

-  Lighter  drive  system  due  to  smaller  diameter, 
higher  rpm  rotors  (therefore  less  speed 
reduct  ion ) . 
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-  Much  larger  range  in  center  of  gravity 
locations. 

-  Relatively  small  effect  of  wind  direction  on 
hover  capability.  [Ref.  2] 

As  important  as  the  advantages  of  a  given  system 
are,  its  limitations  must  be  considered  also. 
Disadvantages,  relative  to  single  rotor  systems,  are: 

-  Greater  directional  instability,  due  to 
decreased  distance  from  center  of  gravity 
position  to  tail  surface. 

-  High  moment  of  inertia  about  the  vertical 
axis  due  to  transmission  mass  located  at  each 
end . 

-  Higher  induced  power  required  on  aft  rotor 
due  to  the  forward  rotor  downwash. 

-  Vibration--twice  as  many  rotors  tend  to 
produce  greater  vibration  problems  than  a 
single  rotor  configuration.  [Ref.  2] 

Although  some  of  these  are  significant  problems, 
none  are  insurmountable.  Furthermore,  the 

technological  developments  of  the  past  20  years  are 
updating  the  previous  solutions  to  these  design 
problems  with  current  computer  and  material  technology. 
For  example,  the  Army  is  currently  updating  its  H-47 
fleet  to  the  "D"  model  Chinook  and  the  Navy  and  Marine 
Corps  are  upgrading  their  H-46’s  through  the 
Survivability,  Reliability  and  Maintainability 
(S  R  &  M)  program.  Both  programs  are  intended  to 
extend  service  life  well  into  the  next  century. 

B.  OBJECTIVES 

The  primary  objective  of  this  thesis  project  was  to 
write  a  computer  program  for  the  conceptual  design  of 
tandem  rotor  helicopters.  Secondary  goals  included: 
Interactivity  for  design  flexibility;  user  friendliness 
so  people  will  use  it;  compactness,  for  microcomputer 
application;  and  accuracy  so  the  results  are 
meaningful.  All  of  this  required  the  development  of  a 
substantial  amount  of  program  software. 
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The  program  will  be  available  to  students  taking 
the  Helicopter  Design  course,  AE-4306.  This  will 
provide  the  option  to  easily  design  a  helicopter  of 
either  rotor  system  scheme  depending  on  the  specific 
mission  that  it  will  be  required  to  perform. 


II.  APPROACH  AND  SOLUTION 


The  initial  intent  of  this  project  was  to  integrate 
a  tandem  rotor  design  section  into  the  existing 
Helicopter  Design  program  written  by  LT  Bob  Drake  [Ref. 
5].  This,  however,  proved  hopeless  as  the  differences 
in  design,  equations,  input  and  output  became  apparent. 
The  problem  then  became  to  develop  the  program  In  a 
format  compatible  with  reference  5,  but  be  totally 
independent . 

"User  friendliness"  is  a  key  phrase  commonly  heard 
these  days  in  the  computer  business,  and  with  good 
reason.  People  want  to  use  the  computer  as  a  tool  to 
accomplish  a  given  task  without  themselves  becoming  a 
slave  to  the  green  screen  and  microchip.  To  this  end. 
Tandem  Rotor  Helicopter  Design  was  written  as  a  menu 
driven,  interactive  program  that  would,  to  the  maximum 
extent  possible,  trap  errors  and  return  to  a  menu  or 
input  field  without  terminating  the  program. 

Microsoft  GWBASIC  was  chosen  as  the  language,  not 
only  to  be  consistent  with  Reference  5  but  also  because 
of  its  compatibility  with  IBM,  and  all  true 
compatibles.  Furthermore,  since  there  was  only  a  small 
amount  of  serious  number  crunching  to  be  done,  vast 
speed  was  not  required;  hence,  GWBASIC  was  the  logical 
choice . 

The  program  is  formatted  into  a  sequence  of 
chapters  that  roughly  correspond  to  the  Hel 1  copter 
Design  Manual  [Ref.  1].  Although  tandems  are  different 
in  some  respects,  they  share  many  similarities  with 
their  single  rotor  cousins.  Therefore,  the  program 
references  the  design  manual  frequently,  and  also 
provides  additional,  tandem  rotor  specific,  information 
when  appropriate.  This  provides  the  student  designer 
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hard  copy  reference  material  to  complt-nu-:.' 

"information"  and  "help  windows"  that  are  bull* 
the  program. 

Each  chapter  is  designed  to  run  as  a  follow-on  * 
the  previous,  with  provisions  to  make  changes  :: 
desired.  New  data  is  then  entered,  when  prompted,  In’o 
specific  input  fields.  When  data  entry  is  complete  the 
computer  will  calculate  the  results  and  display  them  on 
an  output  field,  usually  on  the  same  screen,  so  that 
input  and  output  can  be  viewed  simultaneously.  The 
"ANY  CHANGES?"  prompt  will  then  appear  allowing  the 
adjustment  of  parameters  to  meet  design  specification. 

Once  a  design  is  refined,  a  print-screen  command  gives 
a  hard  copy  of  the  results,  then  the  appropriate  menu 
selection  proceeds  to  the  next  section  or  returns  to 
the  main  menu.  All  chapters  are  linked  via  the  "chain" 
command  which  not  only  passes  control  and  executes  the  j 

next  program,  but  also  passes  all  variables. 

One  important  feature  of  this  program  is  the  use  of 
FLASHUP  WINDOWS**  [Ref.  6]  to  display  menus,  information 
and  help  to  the  user.  This  outstanding  application  j 

software  allows  addition  of  useful  documentation  that  \ 

can  be  easily  accessed  by  the  user.  By  simply  pressing  j 

ALT-F1 ,  with  the  cursor  on  the  appropriate  line,  a  j 

"help  window"  will  be  displayed  for  each  major  input  < 

parameter,  pressing  "Enter"  clears  the  window  and 
returns  to  the  input  line.  Information  windows  will 

display  automatically  when  a  particular  chapter  or  i 

section  is  selected  and  will  remain  as  long  as  desired.  ! 

Again,  "Enter"  clears  the  window  and  proceeds  with  the  j 

program.  Menus  function  in  much  the  same  fashion,  ] 

except  that  they  remain  until  the  user  makes  a  \ 


selection, 

either 

by 

press lng 

the 

first  character 

(letter  or 

number  ) 

1  n 

the  menu 

1  1  ne 

or  by  using  the 

w  M  pumjwuMwwi  v/nm  ’urtv^'t’  y  i-  irru^rr*  ir»  v.g»  u»  iw  v 


"up "-"down”  arrow  keys  to  highlight  the  item  then 
pressing  "Enter"  to  execute  the  selection. 

For  this  project  the  Helicopter  Design  Manual  [Ref. 
1]  and  Helicopter  Performance  [Ref.  3]  were  the  primary 
source  of  equations.  In  addition,  several  other 
resources  were  tapped  in  the  development  of  the 
analytical  routines  of  the  program.  Power  requirements 
for  tandems  are  computed  using  equations  developed  from 
a  combination  of  momentum  theory  and  test  data.  This 
set  of  semi -empirical  equations  was  found  to  be  the 
most  accurate  when  compared  to  actual  H-46  and  H-47 
test  data  [Ref.  4].  Weight  estimation  used  parametric 
equations,  specially  developed  for 
helicopters  in  [Ref.  7]. 


tandem 


rotor 


III. 


RESULTS 


Conc< ,  tual  helicopter  design  Is  based  on  a  myriad 
of  Interrelated  parameters  which  constantly  require 
changes  and  Iteration  to  meet  the  design  specification. 
This  program  handles  the  tedious  calculations  and 
bookkeeping  allowing  the  designer  to  delve  deeper  Into 
the  Intricacies  of  the  design.  Thus  the  engineer  will 
spend  his  time  evaluating  options,  optimizing 
parameters  or  conducting  trade-off  studies.  Instead  of 
performing  mindless  hand  calculations.  Furthermore, 
this  program  Is  designed  to  teach,  as  well  as  being  a 
tool.  The  optional  "help  windows"  and  information 
screens  all  serve  to  help  the  novice  helicopter 
designer  learn  the  process.  Once  the  process  Is 
learned,  the  designer  can  quickly  refresh  his  memory 
without  Interrupting  the  continuity  of  the  program.  In 
short,  the  Tandem  Rotor  Helicopter  Design  program 
complements  existing  software.  Is  easy  to  use,  and 
gives  excellent  results  for  Conceptual  Design. 

Appendix  A  contains  the  "user’s  guide"  to  the 
program.  It  Is  Intended  to  help  students  get  started 
and  use  the  program  regardless  of  their  experience 
level  with  personal  computers. 

Appendix  B  shows  results  for  a  conceptual  design  of 
a  helicopter  with  design  parameters  similar  to  those  of 
the  H  4t>  . 

Appendix  C  Is  the  program  listing. 
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I V .  CONCLUSIONS  AND  RECOMMENDATIONS 


Computer  assisted  design  is  a  rapidly  expanding 
aspect  of  the  engineering  world--and  with  good  reason. 
Virtually  all  aspects  of  design  are  easier,  faster  and 
more  accurate  with  the  advent  of  the  modern  digital 
computer.  Furthermore,  microcomputers  have  become  so 
common  that  the  power  of  the  computer  is  available  to 
virtually  everyone. 

Tandem  Rotor  Helicopter  Design  is  a  small  addition 
to  the  vast  amount  of  software  that  is  being  developed. 
With  it,  the  student  can  work  through  the  conceptual 
design  of  several  helicopters  in  a  fraction  of  the  time 
that  it  previously  took  for  Just  a  single  design. 

It  is  recommended  as  a  follow-on  to  this  thesis 
that  graphics  routines  be  integrated  into  the  program 
that  will  plot  directly  the  important  relationships 
between  parameters.  For  example,  the  Power  -vs- 
Velocity  graph  which  shows  Induced,  profile,  parasitic, 
as  well  as  total  power  and  high  speed  effects  could  be 
plotted  directly  from  the  results  produced  in  chapter 
5.  This  would  provide  an  immediate  visual  presentation 
of  how  the  design  should  perform. 

Another  recommendation  would  be  the  addition  of  a 
"blade  optimization"  routine  similar  to  the  one  in  the 
Single  Rotor  Helicopter  Design  program  [Ref.  5].  This 
program  however,  should  run  separately  from  the 
remainder  of  the  program  since  blade  optimization  is 
more  "detailed"  than  "conceptual"  design. 

Finally  It  Is  recommended  that  microcomputers 
receive  more  emphasis  In  the  Aeronautical  Engineering 
curriculum.  A  course  that  Includes  an  introduction  to 
personal  computers  as  well  as  basic  operation 
procedures  would  be  of  great  value  to  the  students. 
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APPENDIX  A 

TANDEM  ROTOR  HELICOPTER  DESIGN 
USER’S  GUIDE 

1.  INTRODUCTION 

This  program  Is  designed  as  a  menu  driven, 
interactive  design  tool  that  will  perform  the 
bookkeeping  and  iterative  calculations  required  in  a 
conceptual  design.  Since  no  tandem  rotor  design  manual 
is  available,  information  screens  are  displayed 
automatically  when  amplifying  information  was  deemed 
appropriate.  These  will  remain  until  the  "Enter"  key 
is  pressed  to  continue.  Also  available,  in  most 
chapters,  are  "help  windows"  which  are  not  normally 
displayed  but  are  there  if  required.  A  notice  {ALT-F1 
for  help)  will  appear  to  the  right  of  the  title  if 
"help"  is  available.  These  "help  windows"  can  be 
accessed  by  first  locating  the  cursor  on  the 
corresponding  input  line,  then  press  the  "Alt"  and  "FI" 
keys  (ALT-F1).  Pressing  "Enter"  clears  the  window  and 
restores  program  execution.  Finally  the  Hel lcopter 
Design  Manual  [Ref.  l]  is  referenced  extensively 
throughout  the  program.  Though  not  totally  compatible 
with  tandem  design,  the  program  does  follow  this  design 
manual  where  possible.  Thus,  the  Tandem  Rotor 

Helicopter  Design  program  complements  the  Hel lcopter 
Design  Manual  [Ref.  1]  with  additional  tandem  rotor 
specific  information. 
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2.  BASICS 


a.  HARDWARE 

COMPUTER:  IBM  PC  or  compatible  with  128K  of  RAM. 

MONITOR:  Color  if  possible,  but  monochrome  will 

work . 

PRINTER:  Any  that  will  respond  to  the  "Shift- 

PrtSc"  option. 

b.  GETTING  STARTED 

Place  the  program  disk  into  drive  A  and  turn  on  the 
computer.  The  "system"  as  well  as  all  other  support 
software  are  on  the  disk  for  user  convenience.  The 
program  will  be  loaded  and  run  automatically,  so  relax 
and  let  the  system  work.  If  the  computer  is  on.  Just 
insert  the  disk  and  press  the  CTRL-ALT-DELETE  keys 
simultaneously  to  reboot  the  system. 

c .  USING  THE  PROGRAM 

The  main  menu  is  the  first  display  seen  and  will 
serve  as  a  road  map  for  progressing  through  the 
program.  At  the  end  of  each  chapter,  control  will  be 
transferred  back  to  the  main  menu  to  select  the  next 
option  or  quit  if  so  desired.  Selections  can  be  made 
in  one  of  two  ways.  First,  use  the  up-down  arrow  keys 
to  move  the  cursor  to  highlight  the  desired  item,  then 
press  "Enter".  The  second  option  is  to  simply  press 
the  first  letter  or  number  key  of  the  desired  menu 
item;  program  execution  will  begin  immediately. 

Once  established  within  a  chapter,  follow  the 
prompts  and  input  the  data  as  requested.  If  a  mistake 
is  made  -DON’T  WORRY-  the  opportunity  will  be  provided 
to  change  any  item  once  all  data  is  entered.  Note  that 
some  variables  require  a  positive,  non-zero  value.  If 
zero  or  a  negative  number  is  entered  a  window  will 
appear  to  advise  you  of  the  error.  Press  "Enter"  to 
clear  the  window  and  then  enter  the  correct  number.  A 
similar  window  appears  if  an  error  is  made  when 
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selecting  an  item  to  change.  Again,  press  "Enter"  and 
continue . 

Each  chapter  is  organized  into  a  series  of  spread 
sheet  type  screens  that  show  input  and  output  together 
(if  possible).  When  the  input  parameters  have  met  the 
requirements,  press  the  Shift-PrtSc  keys  simultaneously 
for  a  hard  copy. 

d.  SPECIAL  INSTRUCTIONS 

This  section  provides  a  brief  synopsis  of  each 
chapter  in  the  program.  Each  chapter  correlates,  by 
number,  directly  to  a  corresponding  chapter  in  the 
Helicopter  Design  Manual  [Ref.  1],  with  one  notable 
exception;  Chapter  4  is  reserved  for  a  future  blade 
optimization  program  since  tail  rotors  don’t  really  fit 
into  the  tandem  rotor  design  scheme. 

( 1  )  CHAPTER  ONE 

This  contains  a  brief  introduction  and  is 
Included  for  those  who  do  not  have  access  to  this 
user’s  guide. 

( 2  )  CHAPTER  TWO 

Chapter  Two  performs  the  preliminary  rotor 
design  for  the  helicopter.  This  follows  the  Hel lcopter 
Design  Manual  [Ref.  1]  in  determining  the  major 
parameters  that  will  effect  the  eventual  performance  of 
the  helicopter.  Note  that  one  rotor  is  designed  to 
carry  half  the  gross  weight  and  the  two  rotor  system  is 
assembled  in  Chapter  Three. 

( 3  )  CHAPTER  THREE 

This  is  the  Tandem  Rotor  System  Design  segment 
of  the  program  where  two  identical  counter-rotating 
rotors  are  put  together  as  a  system.  Any  of  the  13 
input  variables  can  be  adjusted  to  observe  its  effect 
figure  of  merit,  disk  loading,  etc.  When 


on  powe  r  , 


these  are  acceptable,  proceed  to  the  weight  estimation 
portion  of  the  program. 

Weight  estimation  is  based  primarily  on  power 
required,  but  power  is  a  function  of  weight,  hence  an 
iterative  process.  As  with  previous  sections,  Input 
the  requisite  information  at  the  prompts  and  the 
computer  does  the  rest. 

( 4  )  CHAPTER  FOUR 

Blade  optimization  is  to  be  Included  at  a 
later  date. 

(5)  CHAPTER  FIVE 

This  chapter  incorporates  the  effects  of 
retreating  blade  stall,  advancing  blade  shock  losses, 
high  altitude  hover,  and  various  survi vab 1 1 1 ty/ safety 
additions  to  the  total  power  required.  Total  power 
required  will  be  needed  to  select  the  engines  in  the 
next  chapter. 

(6)  CHAPTER  SIX 

Engine  and  transmission  selection  are  the 
topic  of  this  chapter.  To  complete  the  analysis, 
specific  engine  data  Is  required.  Table  VI-1  in  the 
Helicopter  Design  Manual  [Ref.  1]  provides  a  summary 
of  six  generic  engines  that  are  representative  of 
currently  available,  power  plants.  If  a  specific 

manufacturer’s  data  is  available  it  too  can  be  used. 

(7)  CHAPTER  SEVEN 

This  section  computes  the  range  and  endurance 
for  the  helicopter  being  designed.  Chapter  7  should  be 
reviewed  before  beginning.  Once  the  data  is  entered  It 
will  take  a  few  minutes  to  solve  the  equations,  so  be 
patient;  the  computer  will  beep  when  it  Is  done. 

(8)  CHAPTER  EIGHT 

This  chapter  Is  reserved  to  calculate  all  of 
those  requirements  that  don’t  fit  elsewhere.  Due  to 
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the  differences  between  tandem  and  single  rotor  design 
some  of  these  are  completed  in  earlier  chapters.  Check 
the  design  gross  and  empty  weight  as  determined  back  in 
Chapter  3. 

Maximum  hover  altitude  was  specified  back  in 
Chapter  5  and  used  in  determining  engine  power 
required.  However,  the  maximum  power  is  often  in 
forward  flight,  thus  a  higher  than  specification  hover 
ceiling  will  be  available. 

(9)  CHAPTER  NINE 

This  provides  a  final  summary  of  the 
helicopter’s  designed  performance  and  geometric 
parameters . 

(10)  CHAPTER  TEN 

Chapter  10  computes  an  estimate  of  cost  based 
on  a  set  of  parametric  equations  that  Incorporate 
component  weights  (Chapter  3),  the  inflation  rate  and 
expected  production  quantity. 
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APPENDIX  C 

VARIABLE  DEFINITIONS  AND  PROGRAM  LISTING 


Units  and  Constants 

weight  -  pounds 

airspeed  -  knots 

velocity  -  feet  per  second 

length  -  feet 

angles  -  degrees 

power  =  horsepower 

fuelflow  -  pounds  per  hour 

temperature  -  degrees  Fahrenheit 

PIE  -  3.1415927 

RHO  -  sea  level  density 

MACH  -  mach  number  at  sea  level 


Variables 


MGW  -  specification  maximum  gross  weight 

GW  -  rough  estimate  gross  weight 

MTW  -  estimate  of  manufacturer’s  empty  weight 

VTIPMAX  -  maximum  tip  velocity 

R  *  rotor  radius 

RPM  -  revolutions  per  minute 

RV  -  rotational  velocity  in  radians  per  second 

CT  -  thrust  coefficient 

S  *  blade  solidity 

B  -  number  of  blades 

C  -  main  rotor  blade  chord 

AR  -  main  rotor  blade  aspect  ratio 

CL  -  average  lift  coefficient 

CDO  -  blade  drag  coefficient 

DL  -  disk  loading 

MU  -  advance  ratio 

MBL  -  maximum  blade  loading 

VMAX  -  maximum  forward  velocity  in  feet  per  second 
TASMX  -  maximum  true  airspeed  in  knots 


Three  Variables 


TIPLOSS  -  main  rotor  blade  tiploss 
PI  -  induced  power 
PO  -  profile  power 
PP  -  parasite  power 
PT  -  total  power 
FM  -  figure  of  merit 
PDW  -  percent  difference  in  weight 
FF  -  equivalent  flat  plate  area 
PEOPLE  -  number  of  people,  including  crew 
PAX  -  weight  of  passengers  and  crew 
SPECIAL  -  weight  of  special  equipment 
AV  -  vertical  area  presented  by  2  rotors  as  seen 
from  the  front 

AE  -  total  main  rotor  blade  area 

W(N,N)  -  component  weight 

UL  -  useful  load 

FUEL  -  fuel  weight  in  pounds 

GEAR  -  type  of  landing  gear 

FHH  -  forward  rotor  height  above  the  ground 
VF  -  airspeed  in  feet  per  second 
PI(I)  -  induced  power  in  forward  flight 
PO(I)  -  profile  power  in  forward  flight 


PP( I )  -  parasite  power  In  forward  flight 
PT( I  )  -  total  power  in  forward  flight 
I  -  airspeed  counter  in  knots 
ENGN  -  number  of  engines  Installed 


4 .  Chapter  Four  Variables 

Blade  optimization  program  to  be  added  at  a 
1 ater  date . 

5 .  Chapter  Five  Variables 

CLALFA  -  blade  lift  curve  slope 
TWIST  -  main  rotor  twist  angle  in  degrees 
T7  -  main  rotor  twist  angle  in  radians 
AOAST  -  stall  angle  of  attack  for  rotor  blades 
in  degrees 

PASPEC  -  specification  altitude 
AE  -  effective  disk  area 
VT  -  main  rotor  tip  velocity 
TAS( I  )  -  airspeed  in  knots 
MU  -  advance  ratio 

AOA90  -  blade  angle  of  attack  at  90  degree  position 
AOA270  -  blade  angle  of  attack  at  270  degree 
position 

MACHVEL  -  local  mach  number  as  a  function  of 
al t i tude 

MTIP  -  main  rotor  blade  tip  mach  number 
M90  -  mach  number  advancing  at  90  degree 
position 

MCRT  -  main  rotor  blade  critical  mach  number 
DMD  -  difference  between  M90  and  MCRT 
MD  -  main  rotor  blade  critical  mach  number  for  drag 
d i vergence 

MTIPHVR  -  local  tip  mach  number  in  hover 
MTIPFLT  -  local  tip  mach  number  in  forward 
flight 

MXHVR  -  specification  hover  celling 

CTHC  -  thrust  coefficient  at  hover  ceiling 

TIPHC  -  tiploss  at  hover  ceiling 

PIHC  -  main  rotor  induced  power  at  hover  ceiling 
B1  -  t lploss 

COLANGLE  -  collective  angle  In  degrees 
H8  -  collective  angle  in  radians 
CYCLIC  -  cyclic  angle  in  degrees 
H2  -  cyclic  angle  in  radians 

TASCR  -  cruise  airspeed  in  knots,  specification 
TASMX  -  maximum  airspeed  in  knots, 
specification 

TASMAXP  -  airspeed  for  maximum  power  required 
TASMINP  -  airspeed  for  minimum  power  required 
PSPECHVR  -  total  power  to  HIGE  at  hover  celling 
DELTA  -  pressure  ratio 
THETA  -  temperature  ratio 

RSHP  -  maximum  rotor  shaft  horsepower  required 
INLET  -  inlet  losses 

PINLET  -  percent  loss  due  to  inlets 
RSHPINLT  -  added  horsepower  for  inlets 
EAPS  -  losses  due  to  engine  air  partlcal  separator* 
PEAPS  -  percent  loss  due  to  EAPS 
RSHPEAPS  -  added  horsepower  for  EAPS 
EEDS  -  losses  due  to  engine  exhaust  diffusers 
PEEDS  -  percent  loss  due  to  EEDS 
RSHPEEDS  -  added  horsepower  with  EEDS 
EXGXLOST  -  horsepower  required  to  operate  engine 
(1 0  V  1  C  0  s 

PCTENGN  -  percent  power  required  for  engine  devices 
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6  . 


MICSLOST  -  horsepower  absorbed  by  engine, 
transmissions  and  accessories 
PCTMISC  -  percent  power  required  for  engines, 
transmissions  and  accessories 
RSHPLOST  -  total  power  lost  between  engines  and 
rotors 

PCTLOST  -  percent  power  lost  between  engines  and 
rotors 

ESHP  -  engine  shaft  horsepower  required  to  provide 
rotor  power 


Variables 


NENGSEL  -  number  of  engines  competing  for  selection 

MDT  -  maintenance  down  time 

MTBF  -  mean  time  between  failure 

MTBR  -  mean  time  between  replacement 

DW(X)  -  engine  dry  weight 

SHP(X)  -  engine  shaft  horsepower  at  military 
SFC(X)  -  specific  fuel  consumption  at  military 
ENG  -  number  of  engines 
IC  (X)  -  initial  cost 
OC  (X)  -  operating  cost  per  hour 

PMA(X)  -  preventative  maintenance  per  engine  per 
hour 

MTBMA(X)  -  mean  time  between  maintenance  action 
AFL  -  average  flight  hours  per  year 
SL  -  aircraft  service  life 


TAV  -  « 
YM( X  )  - 
YO (X  )  ■ 
NRPL(x 
LC(X)  ■ 
RD(X)  ■ 
AVaI L( 2 
MAINT  2 
RELY ( x 
RC(X)  . 

EWT?x ) ' 
XMSNW  ■ 
XMSNP  > 


rerage  flight  hour  per  flight 
engine  yearly  maintenance  cost 
engine  yearly  operating  cost 

-  number  of  engine  replacements 
engine  life-cycle  cost 

engine  research  and  development  costs 
)  -  engine  availability 
)  -  engine  maintainability 

-  engine  reliability 
replacement  costs 
salvage  costs 

-  installation  engines  weight 
transmission  weight 
transmission  power  rating 


Seven  Variables 


SFC(X)  -  specific  fuel  consumption 
SHP  -shaft  horsepower 

WDOTF(x)  -  fuel  flow  in  pounds  per  hour 
BETAH  -  slope  of  the  fuel  flow  versus  horsepower 
curve 

ALPHAH  -  zero  horsepower  intercept 
DELTA  -  pressure  ratio 
THEtA  -  temperature  ratio 
ALT  -  specification  altitude 
TEMP  -  specification  temperature 
PF  -  phantom  horsepower 

TASMXR  -  maximum  range  velocity  in  knots 

FFMXR  -  maximum  range  fuel  flow 

RHPMXR  -  maximum  range  referred  horsepower 

PTMXR  -  maximum  range  horsepower 

TASMINP  -  maximum  endurance  velocity  in  knots 

PTMIN  -  SHP  for  maximum  endurance 

RHPMXE  -  maximum  endurance  referred  horsepower 

FFMXE  -  maximum  endurance  fuel  flow 
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1  ’PROGRAM  "TR1.BAS" 

2  KEY  OFF  :  FLG2=0 
1  1 

>*»#***»***#»*#»*»*»*#***»****»*#*****#*#**#***#*»#*** 

14  ’*  **»  TANDEM  ROTOR  HELICOPTER  DESIGN  *** 

1  5 

’a**#**##*####*####*######**##***#*##****#*##***#***** 

1  6  ’ 

18  ’  ***  ADMIN  /  CONTROL  *  * » 

20  ’ 

21  PR INT " ~L=TANDEM 1 /" 

25  COLOR  1 , 1 , 1 : PR INT" ~C= ALL/ " : CLS :  LOCATE  1.1.0 
30  PRINT"  ~W  =  T  R  MENU/":  INPUT"  ",XX  :  PR  INt "  *C  =  ALL  /  "  : 
CLS  ~  - 

35  ON  XX  GOSUB 

50, 100.3000,4000,5000,6000,7000,8000,9000,9500,95 
4 0  GOT 0  25 

50  LOCATE  1,1,0:  PRINT" ~W  = INTRO/ " :  INPUT"  ",X1 
55  PRINT"~C=ALL/"  :  RETURN  25 
90  ’ 

95  COLOR  1,1,1: LOCATE  1  ,  1  . 0 : PR INT " ~ W= R  U  SURE/" 

96  INPUT" ",ANS:  IF  ANS  =  1  THEN  25  ELSE  SYSTEM 

97  ’  " . 

98  ’ 

100  ’  ***  PRELIMINARY  ROTOR  DESIGN  *  *  * 

110  ’ 

120  COLOR  1.1,1: LOCATE  1,1,0:  PRINT" ~C= ALL/ " : 

PRINT"~W= PRELIM/ A :  INPUT  X2 
125  COLOR  15,1  :  PR  I  NT  " ''C  =  ALL/ " 

130  CNT  =  0 

140  CLS:  LOCATE  1,27  :  PRINT  "*  PRELIMINARY  ROTOR 

DESIGN  » " 

150  PRINT 

160  PRINT  "  1.  DESIGN  MAX  GROSS  WEIGHT  [lbs]  (2.1) 

. MGW  =  "  l  j  v  / 

170  PRINT  "  2.  ESTIMATE  OF  EMPTY  WEIGHT  [lbs] 

(2.2)  . MTW  =  »  l  j 

180  PRINT  "  3.  ROTOR  TIP  VELOCITY  (2.3;  700  fps 

recommended )  VT  =  " 

190  PRINT  "  4.  DISC  LOADING  [lbs/ft~2]  (2.4  ;  FIG. 

0.0  1  DT  _  " 


DESIGN  MAX  GROSS  WEIGHT  [lbs]  (2.1) 
i(2.  ESTIMATE  OF  EMPTY  WEIGHT  [lbs] 
ROTOR  TIP  VELOCITY  (2.3;  7 00  fps 


II 

2-2)  7.7 .DL  =  " 

200  PRINT  " 

1 2 . 4  ) . 

2 1 0  PRINT  " 
. RPM  =  " 

520  PRINT 

2.6) . 

30  PRINT  " 

2.7)  . . TASMX  =  " 

40  PRINT  " 


RADIUS 


250 

3RINT 

CT/S 

)  . MBL  = 

260 

PRINT 

.... 

. S 

270  : 

3RINT  » 

(2.8 

) . B  = 

280 

PRINT  " 

. C  = 

290 

PRINT 

300 

PRtNT  " 

•  •  •  • 

. CL 

MU  =  " 


ROTOR  RADIUS  [ft] 

=  II  *-  J 

ROTATIONAL  VELOCITY  [rpm] 
THRUST  COEFFICIENT 
"SPECIFICATION  MAX  AIRSPEED  [knots] 
ADVANCE  RATIO  (2.7) 

_  »l 

6.  MAX  BLADE  LOADING  (2.7;  FIG. 2-3; 

ROTOR  SOLIDITY  (2.7) 

•  I 

7.  NUMBER  OF  ROTOR  BLADES  PER  HEAD 
BLADE  CHORD  [ft]  (2.9) 
ASPECT  RATIO  (2.9) 

—  II 

AVG  LIFT  COEFF  (2.10) 


320  PRINT  :  COLOR  14,1 

330  PRINT  "  8.  RETURN  TO  MAIN  MENU." 

340  LOCATE  23,6:  PRINT"***  FOR  HARD  COPY  PRESS 
<  Sh i f  t - Pr  tSc  >  BEFORE  RETURNING  TO  MAIN  MENU  »**":  COLOR 
15,1 


COPY  PRESS 


345  ’ 

350  CNT  =  CNT  +  1  :  J  =  0 

360  IF  CNT  =  1  THEN  370  ELSE  LOCATE  21,1:  PRINT 

SPC(  77_)  :  GOTO  410 
370  FOR  J  =  1  TO  7 

380  LOCATE  21,20  :  PRINT  "ENTER  YOUR  VALUE  FOR  ITEM 

NUMBER  ”  ;  J 

390  X  =  J  : GOTO  430 

410  LOCATE  21,11: INPUT"WHICH  PARAMETER  DO  YOU  WISH  TO 
CHANGE  7  SELECT  ?  ",  X 

430  IF  X  <  1  OR  X  >  8  THEN  GOSUB  1500  :  IF  J  =  0 

THEN  410  ELSE  380 

440  ON  X  GOSUB  510,520,530,540,550,560,570,25 
450  IF  CNT  =  1  THEN  NEXT  J  ELSE  GOSUB  800 

455  FLG 1  =  1  :  GOTO  350 

460  ’ 

4-80  ’  ***  PRELIM  ROTOR  DESIGN  INPUT 

SUBROUTINES  *** 

500  ’ 

510  LOCATE  3,61  :  PRINT  SPC(7)  :  LOCATE  3,60  :  INPUT" 

"  ,  MGW 

5 1 5  IF  MGW  <=  0  THEN  PR  I NT " ~W=DVN0 / "  :  GOTO  510  ELSE 

RETURN 

520  LOCATE  4,61  :  PRINT  SPC(7)  :  LOCATE  4,60  :  INPUT" 

"  ,  MTW 

525  IF  MTW  <=  0  THEN  PRINT" ~W=DVN0/ "  :  GOTO  520  ELSE 

RETURN 

530  LOCATE  5,61  :  PRINT  SPC(7)  :  LOCATE  5,60  :  INPUT" 

"  VT 

5^5  IF  VT  <=  0  THEN  PR  I NT " ~W  =  DVN0 / "  :  GOTO  530  ELSE 

RETURN 

540  LOCATE  6,61  :  PRINT  SPC(7)  :  LOCATE  6,60  :  INPUT" 

"  DL 

545  IF  DL  <=  0  THEN  PR INT " ~W=DVN0 / "  :  GOTO  540  ELSE 

GOSUB  630  :  RETURN 

550  LOCATE  10,61:  PRINT  SPC(7)  :  LOCATE  10,60:  INPUT" 

m  tasmx 

5^5  IF  TASMX  <=  0  THEN  PR INT " ~W=DVN0 / "  :  GOTO  550  ELSE 
GOSUB  690  :  RETURN 

560  LOCATE  12,61:  PRINT  SPC(7)  :  LOCATE  12,60:  INPUT" 

"  ,  MBL 

565  IF  MBL  <=  0  THEN  PR INT " ~W=DVN0 / "  :  GOTO  560  ELSE 

GOSUB  710  :  RETURN 

570  LOCATE  14,61:  PRINT  SPC(7)  :  LOCATE  14,60:  INPUT" 

II  g 

5’>5  IF  B  <=  0  THEN  PR  INT "  ~W=DVN0  / "  :  GOTO  570  ELSE 

GOSUB  730  :  RETURN 
590  ’ 

600  ’  ***  PRELIMINARY  ROTOR  DESIGN  EQUATIONS  AND 

OUTPUT  *** 

610  ’ 

630  PIE  =  3.141592  :  RHO0  =  .0023769  :  RHO  =  .0023769 
636  R  =  SQR CABS  (.5  *  MGW/ ( DL  *  PIE))) 

640  RPM  =  VT  *  9.55  /  R 

650  CT  =  MGW  /  (2  *  RHO  *  PIE  *  R  *  R  *  VT  *  VT ) 

660  LOCATE  7,52  :  PRINT  USING  "  #  ft .  MM"  1  R 
670  LOCATE  8.52  :  PRINT  USING  "HltltH  .Hlftftt"  :  RPM 
680  LOCATE  9,52  :  PRINT  USING  "bHHH ;  CT  : 

RETURN 

690  MU  =  TASMX  *  1.68893  /  VT 

700  LOCATE  11,52  :  PRINT  USING  ;  MU  : 

RETURN 

710  ’»»*  solidity  calcn  *** 

715  S  =  CT /MBL 

720  LOCATE  13,52  :  PRINT  USING  " .MMMM"  :  S  : 

RETURN 

730  ’**»  chord,  aspect  ratio,  and  lift  coeff  *** 

735  C  =  S  »  PIE  *  R  /B 
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740  AR  =  R/C 

750  CL=  CT  *  6  /  S 

770  LOCATE  15,  52  : 
780  LOCATE  16,  52  : 
790  LOCATE  17,  52 

CL: RETURN 


PRINT 

PRINT 


USING 

USING 

PRINT 


USING 


800 
820 
840 
850 
860 
870 
880 
890 
900 
910 
920 
935 
940 
950 
960 
970 
980 
990 
1  000 


**»  PRELIMINARY  ROTOR  DESIGN  SUBROUTINE 
R_=  SQR£ABS_(^5  *  MGW/(DL  *  PIE))) 

VT  *  VT  ) 


RPM 
CT  = 
LOCATE 
LOCATE 
LOCATE 
MU  = 
LOCATE 


VT  *  9155  /  R 
.5  *  MGW  / ( R 
7,  52 


8,  52 
9.  52 
TASMX 


1  1 


52 


1 


S  =  CT/MBL 
LOCATE  13,  52 
C  =  S  *  PIE 
AR  =  R/C 
CL=  CT  *  6  / 
LOCATE  15,  52 
LOCATE  16,  52 
LOCATE  17,  52 


/(RHO  *  PIE 
PRINT  USING 
PRINT  USING 
PRINT  USING 
.688  /  VT 
PRINT  USING 


PRINT 
R  /B 


USING 


1500  LOCATE  1,1,0. 
PRINT  SPC( 77 ) :  RETURN 
2000  ' 

3000  LOCATE 
CHAIN"TR3", , ALL 
4000  LOCATE  1  ,  1 


PRINT 

PRINT 

PRINT 


USING" 

USING" 

USING" 


PRINT"~W=TRYAGAIN/ " 


# 

R 
RPM 
CT 

MU 

S 


c 

AR 

CL:  RETURN 
LOCATE  23 , 1 


1,1,0: PRINT"~W=LOADNOTE/ " 


FLG2  = 1 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
END 

PROGRAM 


0 

0 

0 

0 

0 

0 

0 


PRINT " ~W  =  BLDOPT/ "  : 
PRINT "~W=LOADNOTE/" 
PRINT" ~W=LOADNOTE/" 
PRINT "~W=LOADNOTE/" 
PRINT" ~W=LOADNOTE/" 
PRINT" ~W=LOADNOTE/ " 
PRINT"~W=LOADNOTE/ " 


INPUT" ", X4 : GOTO  25 


CHAIN  'TR5 " ,  .ALL 
CHAIN"TR6 " , .ALL 
CHAIN"TR7" , .ALL 
CHAIN"TR8" , .ALL 
CHAIN"TR9" , , ALL 
CHAIN"TR1 0" , .ALL 


5000 
6000 
7000 
8000 
9000 
9500 
9999 
1 020  ’ 

1  021 

>  ####*###**###* 

#***###«* 

1 022  ’ *  *  #  # 

ESTIMATION  *** 

1  023 

<»*»»***»»***»*»*»******»»*»»*»»»««»««««»«*«»»«»«*•»» 

####**##* 


"TR3 . BAS" 


17  SEPT  87 


»*#«»***«»*#»*»****»»*»«««*•*»««*»«»* 


TANDEM 


ROTOR  SYSTEM  DESIGN  &  WEIGHT 


1024  ’PLEASE  NOTE:  USING  BASICA  TO  RUN  THIS  PROGRAM 
WILL  CAUSE  THE  INPUT  LINE  TO  BE  DELETED  IF  THE  FLASHUP 
HELPWINDOW  IS  DISPLAYED  ! 

1025  DIM 
W(20,20) ,GW(20) ,WE(20) ,W6( 10),W6A( 10).W6B( 10),W6C( 10),- 
P  Ij  W  (  Q  ) 

1030  PIE  =  3.141592  :  RHO0  =  .002377 

1035  ’MGW  =  23000:  R=25.5:  C=1.5:  CDO= . 0089999 : B  =  3: 

RPM  =  267.4 

1040  ’S1=  34:  GAP=  4:  FHH=  16:  PA=1:  TAS*1:  FF=44: 

AGL= 1 0 : 

1045  :  C$= "HHti . 

1050  PRINT " "L=TANDEM3/ "  : ’ FLG2  =  1:  FLG3  =  3 

: ’ FLG2 : f lag  fm  TR 1  rbf,FLG3 

1060  KEY  OFF  :  COLOR  15,1  :  CLS:  PRINT  "~C=ALL/" 

1  090  ’ 

U00  >##*##**»*««««#**  POWER  VARIABLES  INPUT 

»*»*»*»*«*#******«**»«»« 

1150  ’ 

1170  CNT  =  1  :  CLS:  LOCATE  1,22 
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1180  PRINT  " *  TANDEM  ROTOR  SYSTEM  DESIGN  * 

{ Alt-FI  for  help)" 

1 1 90  PRINT 

1200  PRINT  ”  1 .  DESIGN  MAX  GROSS  WEIGHT 

[lbs] . MGW  =  " 

1210  PRINT  "  2.  ROTOR  RADIUS 

I  f  t  1  R  _  " 

T220  ■' PRINT " . 3'.'  BLADE  CHORD  [ft] 

C  =  " 

i 230 ' PRINT ■’ " . 4!  'BLADE  PROFILE  DRAG  COEFFICIENT 

. CDO  =  " 

1240  PRINT  "  5.  NUMBER  OF  ROTOR  BLADES  PER  HEAD 

. B  =  " 

1250  PRINT  "  6.  OPERATING  RPM  [rpm 

. RPM  =  " 

1260  PRINT  "  7.  ROTOR  SHAFT  SPACING  [ft 

. SI  =  " 

1270  PRINT  "  8.  ROTOR  HEAD  VERTICAL  SPACING  [ft' 

. GAP  =  "  “ 

1280  PRINT  ”  9.  HEIGHT  OF  FORWARD  HEAD  ABOVE 

WHEELS  I  ft  1  FHH  =  u 

1290  PRINT  10.  PRESSURE  ALTITUDE  [ft  MSL] 

. PA  =  " 

1300  PRINT  "  11.  HOVER  ALTITUDE  [ft  AGL  : 

. AGL  =  " 

1310  PRINT  ”  12.  TRUE  AIRSPEED  [knots]  (0  FOR 

HOVER)  . TAS  =  " 

1320  PRINT  "  13.  EQUIVALENT  FRONTAL  AREA  [ft~2] 

FF  =  M 

i  325  '  COLOR  '  i  4  1 

1330  PRINT  "  14.  COMPONENT  WEIGHT  ESTIMATES  15. 

RETURN  TO  MAIN  MENU" 

1 331  COLOR  15,1 

1332  IF  FLG2  =  1  THEN  1335  ELSE  1375 

1 335  ’load  data  from  previous  chapter,  if  applicable; 
or  al lows  input ' 

1336  ’ 

1338  IF  MGW  <>0  THEN  LOCATE  3,61:  PRINT  USING  A$ ;  MGW 
ELSE  GOSUB  1500 

1340  IF  R  <>0  THEN  LOCATE  4,61:  PRINT  USING  A$ ;  R 

ELSE  GOSUB  1520 

1342  IF  C  <>0  THEN  LOCATE  5,61:  PRINT  USING  A$ ;  C 

ELSE  GOSUB  1540 

1344  IF  CDO  <>0  THEN  LOCATE  6,61:  PRINT  USING  C$ ;  CDO 
ELSE  GOSUB  1560 

1346  IF  B  <>0  THEN  LOCATE  7,61:  PRINT  USING  B$ ;  3 

ELSE  GOSUB  1580 

1348  IF  RPM  <>0  THEN  LOCATE  8,61:  PRINT  USING  A$ ;  RPM 
ELSE  GOSUB  1600 

1350  IF  SI  <>0  THEN  LOCATE  9,61:  PRINT  USING  A$ ;  SI 

ELSE  GOSUB  1620 

1352  IF  GAP  <>0  THEN  LOCATE  10,61:  PRINT  USING  A$ ;  GAP 
ELSE  GOSUB  1640 

1354  IF  FHH  <>0  THEN  LOCATE  11,61:  PRINT  USING  A$ ;  FHH 
ELSE  GOSUB  1660 

1356  IF  PA  =>0  THEN  LOCATE  12,61:  PRINT  USING  B$ ;  PA 

ELSE  GOSUB  1680 

1358  IF  AGL  <>0  THEN  LOCATE  13,61:  PRINT  USING  B$ ;  AGL 
ELSE  GOSUB  1700 

1360  IF  TAS  =>0  THEN  LOCATE  14,61:  PRINT  USING  B$ :  TAS 
ELSE  GOSUB  1720 

1362  IF  FF  <>0  THEN  LOCATE  15,61:  PRINT  USING  A$ ;  Fr 

ELSE  GOSUB  1740 

1364  GOSUB  1770  :  GOSUB  2140 

1  366  ’ 

1 370  CNT  =  CNT  +  1 :  J  =  0 

1375  IF  CNT  =  1  THEN  1380  ELSE  LOCATE  23,1:  PRINT 

S PC ( 77  )  :  GOTO  1420 
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1380  FOR  J  =  1  TO  13 

1390  LOCATE  23,20: PRINT  "ENTER  YOUR  VALUE  FOR  ITEM 
NUMBER  "  ;  J 

1400  X  =  J  :  GOTO  1440 

1420  LOCATE  23,1 1 : INPUT"WHICH  PARAMETER  DO  YOU  WISH 
TO  SELECT  /  CHANGE  "  ; X 

1440  IF  X  <  1  OR  X  >  15  THEN  GOSUB  4500:  IF  J  --  0 

THEN  1420  ELSE  1390 

1450  ON  X  GOSUB  1500,1520,1540,1560,1580,1600,1620, 

1640,1660,1680,1700,1720,1740,2250,9000 

1460  IF  CNT  =  1  THEN  NEXT  J 

1470  FLG2  =  1  :  GOTO  1370 

1480  -*»*.»»**»###*###  DATA  ENTRY  SUBROUTINES 

***»**#«#**«»*##*#**##»**#** 


1  490  ’ 

1500  LOCATE  1,1,0:  PR INT " ~K= { ALT -F 1 >, HW 1 / " 

1505  LOCATE  3,61:PRINT  SPC( 8 ): LOCATE  3,60:INPUT"  " , MGW : 
PRINT"~K=(ALT-F1  }  /  " 

1510  IF  MGW  <=0  THEN  PR  INT "  ~W=DVN0/ "  :  GOTO  1500 

1515  IF  CNT  > 1  THEN  GOSUB  1770: GOSUB  2140:  RETURN  ELSE 

RETURN 

1520  LOCATE  1,1,0:  PR INT " ~K= { ALT-F 1 > , HW2 / " 

1522  LOCATE  4,61:  PRINT  SPC(8):  LOCATE  4,60:INPUT"  " , R 
:  PRINT "~K=(ALT-Fl}/" 

1524  IF  R  <=  0  THEN  PR INT " ~W=DVN0/ " :  GOTO  1520  ELSE 
1526  IF  CNT  > 1  THEN  GOSUB  1770:GOSUB  2140:  RETURN  ELSE 
RETURN 

1540  LOCATE  1,1,0:  PR INT " ~K »< ALT-F 1 >, HW3 / " 

1542  LOCATE  5,61  -.PRINT  SPC(  8 ):  LOCATE  5,60:INPUT"  ",C  : 
PRINT"~K={ ALT-F1 )/" 

1544  IF  C  <=  0  THEN  PR INT " ~W= DVN0 / " :  GOTO  1540  ELSE 
1546  IF  CNT  > 1  THEN  GOSUB  1770: GOSUB  2140:  RETURN  ELSE 


•K={ ALT-F1 
SPC(8) : LO 


RETURN 

1560  LOCATE  1,1,0:  PR INT " ~K= ( ALT-F1 } , 
1565  LOCATE  6,61:PRINT  SPC(8):L0CA 
"  ,CDO:  PRINT"''K=(  ALT-FO/" 

1$70  IF  CDO  <=  0  THEN  PR INT " ~W=DVN0/ " 
1575  IF  CNT  > 1  THEN  GOSUB  1770: GOSUB 
RETURN 

1580  LOCATE  1,1,0:  PRINT " ~K= ( ALT -FI } , 
1585  LOCATE  7, 61 {PRINT  SPC( 8 ): LOCATE 
PRINT" ~K={ ALT-F 1 } / " 

1590  IF  B  <=  0  THEN  PR INT " ~W=DVN0 / " : 
1595  IF  CNT  > 1  THEN  GOSUB  1770:GOSUB 


}  ,HW4/" 

6ATE  6 


INPUT" 


INT"~W=DVN0/" :  GOTO  1560  ELSE 
B  1770: GOSUB  2140:  RETURN  ELI 


1,1,0:  PRINT " ~K= ( ALT -FI }, HW5 / 
7 , 6 1  : PRINT  SPC ( 8 ): LOCATE  7,6i 


1  595 


CNT  >  1 


>1  :  PRINT  SPC 

)  THEN  PRIN1; 
THEN  GOSUB 


1  770 


GOTO 

2140: 


RETURN  ELSE 


INPUT"  " , B : 

1580  ELSE 
RETURN  ELSE 


RETURN 

1600  LOCATE  1,1,0:  PRINT"~K={ ALT -FI } , HW6 / " 

1610  LOCATE  8.61: PRINT  SPC( 8 ): LOCATE  8,60:  INPUT"  ",RPM 
: PR INT "~K={ ALT-F 1 )/" 

1615  IF  RPM  <=  0  THEN  PRINT"~W=DVN0/ " :  GOTO  1600  ELSE 
1618  IF  CNT  > 1  THEN  GOSUB  1770:GOSUB  2140:  RETURN  ELSE 


RETURN 

1620  LOCATE  1,1.0:  PR INT " ~K= (ALT-F 1 >,HW7 / " 

1630  LOCATE  9,61:  PRINT  SPC( 8 ): LOCATE  9,60:  INPUT"  ",  Si 
1635  PRINT" ~K= (ALT-F 1 ) / " : IF  CNT>1  THEN  GOSUB  1770:GOSUB 
2140:  RETURN  ELSE  RETURN 

1640  LOCATE  1,1.0:  PR INT " ~K ={ ALT-F 1 >. HW8/ " 

1650  LOCATE  10,61:  PRINT  SPC( 8 ): LOCATE  10,60:INPUT" 

".GAP 

1655  PRINT" ~K= { ALT-F1 }/"  :  IF  CNT>1  THEN  GOSUB 

1 770 : GOSUB  2140:  RETURN  ELSE  RETURN 

1660  LOCATE  1,1,0:  PR INT " ~K =( ALT-F 1 > ,HW9/" 

1665  LOCATE  11.61:PRINT  SPC ( 8) : LOCATE  11, 60: INPUT" 
" , FHH :  PRINT" ~K=( ALT-F1 )/" 

1670  IF  FHH  <=  0  THEN  PRINT " ~W=DVN0/ " :  GOTO  1660  ELSE 
1675  IF  CNT  > 1  THEN  GOSUB  1770:GOSUB  2140  :  RETURN  ELSE 


RETURN 

1680  LOCATE  1,1,0:  PR INT " ~K ={ ALT-F 1 }, HW 1 0 / " 
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LOCATE 


12,61 : PRINT 

_ sm/". 

C'ATE  '  ’  lj?4l  « 

PRINT "  "K-  { ALT -F 1  )/" 


NT"~K-  . 
“  2140: 


SPC( 8 ) : LOCATE 
CNT  >  1 


12,60: 

THEN 


, HW1 1 /" 

>6ATE  13,60: 


3715  PRJNT"~K-  ALT-F1)/"  :  IF  CNT >  1  T 

HI '  £oCA?E*1  :*EKm,HW,  2/  » 

1730  LOCATE  14,61  SPRINT  SPC( 8 ): LOCATE  14, 


THEN 


gBOo5ul  2140 


RETURN 


1780  N 
1790 
1800 


N 


1  : QW( 1  ) 

1 


thru  5 

.8  » 


JAP  v 
2  *R ) 


1820  GW(1 ) 
1830 


CNT  +  1 

1840  RTRHT  ■  FHH  +  .5  » 

1850  QE  ■  ( AGL+RTRHT )  / 

1860  PQE  -  - 

.  1 276*GEA4 
1870  RV 
1  68893 

1880  SIGMA  -  (1  -  6 . 87535E-06  * 

1890  IF  PA-0  THEN  RHO-RHO0 

?§85  •  gg1 21  §FE^TRHO“SIaMA,,RHO0 

1:!93  «)  w  , 

v  - (2  *  CT )  /  B) 


INPUT" 

aosuB 

INPUT" 

gosub 

INPUT" 

qosub 


INPUT" 

DVN0/ " : GOTO  1740  ELSE 

1  460 

POWER  COMPUTATION  SUBR 
MOW  :  'subr  access  from  line  1755 
s  sent  from  weight  comp  admin  subr. 


.5147  +  1  . 3432 *GE  -  1  . 457*GEA2  + 
RPM/9.55  :  VT  -  RV  *  R  : 

PA)  A4 . 256 1 


.708»aEA3  - 
VF  -  TAS  » 


EL^E  IF  PA-4000 

lb-secA2/f tA4 


THEN 


0  TIPLOSS  -  1  -  I  SQR(  2 
0  RE  -  R  *  TIPLOSS 

<?QRiSi"2-csria?4^PI?‘(PIE/180)*ACOS(s1/(2#RE) }) 

VTA2  ) 

*  GAP 

+  .25*((AV/AE)*(VF/VI )  )A4  ) 


nr 

T/S' 

.\/cr  ' 

B*Ci^/ll  > 
“  “  ~RK/" : 


D 

2006  C 

2007  A.. 

2008  BL 

2009  IF  _  . 

PRINT " ~W- BLDST 
2020 
2030 
2040  ’ 

2060  IF  GE  <-  2  THEN  PI  - 
ELSE 

207$  PI  -  T  *  VI 


THEN  COLOR  1,1.1: LOCATE  1,1.0: 
X4  :PRINT"~ciAiL/":  COLOR  1  $ , 1 

POWER  CALCULATION 


*  *  # 


»  #  « 


2080  PO  i  (CDO  * 
»  MUA2l 
2090  PP 
2100  PC 
2105  FM 


B 


K 


:  H 


YFA3 

“  » 

/ 


»  FF 

VV  +  RHO  * 
(PI  +  PO) 


PGE 
RHO  £ 


VI 


K 


KU  , 
»  R 


0 

TA3 


1  1  00 
F  *  VVA3 


KU  /550 
RHO  /  2200  )  * ( 1+  4.3 
)  /  1100 
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21  1 0  PT  =  PI  +  PO  +  PP  +  PC 
2120  RETURN 
2130  ’ 

2140  ’  . . . .  POWER  RESULT 

»»**««***»**»»»»»»»••• 

2150  ’ 

2170  LOCATE  17,34:PRINT  RESULTS 

2180  LOCATE  18,14:PRINT  USING"PI  =  kkkkk.k 
2190  LOCATE  19,14:PRINT  USING"PO  =  kkkkk  k 
2200  LOCATE  20,14:PRINT  USING"PP  =  kkkkk.k 
2210  ’LOCATE  21,14:PRINT  USING”PC  =  kkkkk. 
2220  LOCATE  22, 14:PRIN“  ““ 

22,29:  PRINT  "HP" 

2230  LOCATE  18±46:PRI 


PRINT  US ING" PT  = 


POWER  RESULTS  OUTPUT  S'JBE 


PI 

PO 

?P 

PC 

PT : LOCATE 


t-  XJ  w  V_/  r-v  j.  i_j  I  U  I  TU  •  l  ax  NT  USING"FM  ^  -  r ,, 

18,59: PRINT"( .75  to. 85}  »HOVER 

2232  LOCATE  19,46:PRINT  USING"DL  =  kkk.  kk"  \  DI 
1 9,59: PRINT"(  5  to  15  )  ONLY 

2234  LOCATE  20,46:PRINT  USING"CL  =  kkk.kk" Cl 
20,59: PRINT"(CLmax;  1.55) 

2236  LOCATE  21,46:PRINT  USING"AR  =  kkk.kk"-,  AF 
21  , 59 : PRINT"{  15  to  20  ) 

2238  LOCATE  22,46: PRINT  USING"BL  =  kk.kkk"-,  BI 
22,59: PRINT" { BLmax ;  0.12) 

2239  ’ 

2240  RETURN  : ’returns  to  1366  or  1460 

2249  ’ 

2250  ’»********»*«*»  COMPONENT  WEIGHT  APROX  INI 

###*#*###*##*** 

2251  ’ 

2252  ’ FLG3= 1 :  GEAR* 1 :  ENGN= 1 :  FUEL=2500:  PEC 

SPECIAL=100:  UL= 1 000 :’ remove  before  flight 

2253  CLS : PRINT " ~C= ALL/ " : LOCATE  1,1,0: PRINT " ~W= WC 
INPUT"  " , X3 :  PRINT" ~C= ALL/ " : CLS 

2255  LOCATE  1,22:  PRINT " *  COMPONENT 

APPROXIMATIONS  *  (Alt-FI  for  help)" 

2260  PRINT"~K={ ALT-F1  > . WTAPRXHW/" 

2265  IF  FLG3  =1  THEN  2$60  ELSE 

2270  . .  SUPPLEMENTARY  DATA 


=  kkk.kk 


=  kkk.kk 
=  kkk.kk 
=  kkk.kk 
=  kk.kkk 


FM: LOCATE 
DL : LOCATE 
CL : LOCATE 
AR : LOCATE 
BL : LOCATE 


APROX  INPUT  SUBR 


PEOPLE  =  25  : 


_EST  /  "  : 
WEIGHT 


INPUT 


2271  ’ 

2272  LOCATE  3,2:  PRINT" 1 .  TYPE  LNDG  GEAR  (TRICYCLE 
STYLE ) M 

2276  LOCATE  4,2:  INPUT"  INFIXED  2 = RETRACTABLE 

ii  gear 

2280  *  LOCATE  5,2:  INPUT"2.  NUMBER  OF  ENGINES  (2  or  more) 
...  ", ENGN 

2285 „  LOCATE  6,2:  INPUT"3.  ESTIMATED  FUEL  CAPACITY 
( lbs )  M  FUEL 

2290  LOCATE’ 7, 2:  INPUT"4.  NUMBER  OF  CREW  AND  PASSENGERS 

»»  people 

2292  Locate'  8,2:  INPUT"5.  WT  OF  SPECIAL  AVIONICS  (lbs) 
n  SPECIAL 

2294  L6CATE  9,2:  INPUT"6.  SPECIFICATION  USEFUL  LOAD 

(lbs)  .  "  UL 

2295  GOSUB  3000 

2296  COLOR  14,1  -.LOCATE  10,2:  PRINT"7.  RETURN  TO  TANDEM 
ROTOR  SYSTEM  DESIGN" 

2298  LOCATE  12,2:  PRINT  SPC(40)  :  FLG3  =  1 

2300  LOCATE  12,2:  INPUT"  SELECTION  ?  (1  thru  6  for 

changes)  ",X: COLOR  15,1 

2307  IF  X  =  7  THEN  PRINT " (ALT-F1 >/ " 

2310  IF  X  <  1  OR  X  >  7  THEN  BEEP:  GOTO  2296  ELSE 

2315  ON  X  GOSUB  2320,2325,2330.2335,2340,2345.1100: 
GOSUB  3000:  GOTO  2296 

2320  LOCATE  4,39:  PRINT  SPC(6):  LOCATE  4.38: INPUT" 

".GEAR  : RETURN 

2325  LOCATE  5,39:  PRINT  SPC(6):  LOCATE  5.38:  INPUT" 

" , ENGN  : RETURN 


2330  LOCATE  6,39:  PRINT  SPC(6) 

".FUEL  : RETURN 

2335  LOCATE  7,39:  PRINT  SPC(6) 

".PEOPLE  : RETURN 

2340  LOCATE  8,39:  PRINT  SPC(6) 

11  SPECIAL  •  RETURN 
2  j>45  LOCATE  9,39:  PRINT  SPC(6):  LOCATE  9,38:  INPUT"  "  ,  UL 
: RETURN 
2350  ’ 

2360  ’***  routine  to  _ 

option  to  change. 

2363  LOCATE  3,2:  PRINT"1.  TYPE  LNDG  GEAR  (TRICYCLE 

STYLE ) ” 

2365  LOCATE  4,2:  PRINT  USING"  1 =FIXED 

2= RETRACTABLE  .  #####" : GEAR 

2370  LOCATE  5,2:  PRINT  USING"2.  NUMBER  OF  ENGINES  (2  or 
more)  ...  ;  ENGN 

3375  LOCATE  6,2:  PRINT  USING"3.  ESTIMATED  FUEL  CAPACITY 
lbs) - FUEL 

NUMBER  OF  CREW  AND 


LOCATE  6,38: INPUT" 
LOCATE  7,38: INPUT" 
LOCATE  8,38: INPUT" 


list  these  parameters  first  with 


lbs  ) . . . . 

?380  LOCATE 
PASSENGERS  . 

f  S3 

2390  LOCATE 
LOAD  (  lbs7-  ....... 

2400  GOSUB  3000: 
2410  » 

2465  ’  . 


7.2:^^PRINT  USING"4 . 

.  .  kffk##uzP EOPLE 

PRINT  USING" 5-  WT 
*  SPECIAL 

PRINT  USING"6-  SPECIFICATION  USEFUL 


OF  SPECIAL  AVIONICS 


r  tt  ;UL 
GOTO  2296 


COMP 


WT  RESULTS 


.53 


2466  ’ 

2469  LOCATE 

2470  LOCAT 

ROTORS . 

2475  LOCATE 

FUSELAGE .  HtHHHf .  W(  j  NN) 


:  PRINT" * 
5,47 


COMPONENT  * 

PRINT  USING 
W( 1 , NN^ 

RINT 
W 


r  Vi  . .  TT  TT  TT  TT  TT  •  TT  •  »*  V  ✓ 

vU.fflf”  6sii,G 


2490 
ENGI 
24 
TR 


3. 

w(m  using" 

Mh.fi ,  WI5{SS-  bsiNG" 


2485  LOCATE 

NACELLES . 

0  LOCATE 

INES . 

LOCATE 

2!00N:;^if^!!5*rw6c(58r 

2503  W(6.NN)  -  W6ACNN)  +  ‘ 
CONTROLS.  ?*.E. 

pj.8,..L0CATW2*iT:w(8^T 

INSTRUMENTS??**^.  ....  Vk' 


'i 


W6BCNN ) 
“RINT 
7.NN) 


SING" 
+ 


OUTPUT  SUBR 

•  WEIGHT  " 

•  1 .  MAIN 

USING"  2. 

LANDING  GEAR 

4.  ENGINE 

USING"  5. 

6.  DRIVE 

FUEL  TANKS 


W6C(NN) 

USING" 


USING"  9. 


W( 


PRINT 
NN2 
6"  1 1 . 


(J&IN 


locate...:.  m:* 

furnishings??*??. .  . . .  Mtt Vk' 


2530 
AVIONICS 


USING" 1 2 . 

,  PRIN 
W( 1 2  ,  NN 
P&IN 


2540  LOCA 
EQUIP 
2545 
EQUIP 
2550 
PRINT" 

25*  * 


W(13,NN 
USING'’ 1  5 

USING" 1 6 . 


»###!»*  J76(  1^585 

LOCATE  19.47:  PRINT 
.  .  UHMti  w(  1  5  ,  NN  j 

LOCATE 

PRINT  USING"  TOTAL 


mcF  f  &ii&\ 


8.  FLIGHT 
AUX  POWER 
USING" 1 0 . 
HYDRAULIC 
ELECTRICAL 
USING" 1 3 . 
USING" 1 4 . 
AC  /  DE-ICE 
LOAD  HANDLING 
20,47: 

_  H 

COMPONENT  WEIGHT 
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2560  LOCATE  13  2- 

-5i^J2CJTlbs":M6wPRIN"T  USING”SPEC  MAX  GROSS  WT  (MOW) 
2570  LOCATE  ^1 4. 5;  PRINT  USING"  NEW  A/C  EMPTY  WT 


f’jwtfasjwSiV  PRINT  USING" 

PRINT  USING" 

i‘i|2»i2c^6PAi7-‘5;  FRINT  USING" 

256j^L(JCJTft^i8.5:  PRINT  USING" 

2586  '  '  *"  LOCATE 

PRINT" - 

2587  LOCATE  20.5:  PRINT  USING" 

=  .ti  lbs" : NGWE( NN ) 

2590  LOCATE  21.5:  PRINT  USING" 


FUEL  WT 
PERSONNEL  WT 
USEFUL  LOAD 


19.2: 


hm' 


=  HttntiH  .H  lbs"  ;  NGWE(  NN  ) 

klNT 

2600  LOCATE  25.2 2:  PRINT 

hard  copy  * 

2620  FLG 5  = 1  :  RETURN 

2999  1 

5000  . . . . 


NEW  GROSS  WT  ESTIMATE 
TOTAL  POWER  FOR  HOVER 


press  < Sh i f t - Pr tSc >  for 


WEIGHT 


COMPUTATION 


SUBR 


THEN 


WE (  1  )  =MTW 


ELSE 


5  0  0  1 

5005  N  =  0  :  PR INT" ~W=COMP/ " 

5010  FOR  N  =  1  TO  5 

Ilf?  7407- MGV-2^0  MTW<>°  ™EN  WE,1)*MTW  ^ 
5 £ 40  GOSUB  1800  : ’computes  PT.PI  and  PO  based  on 

5050  HP  =  PT 

5060  GOSUB  4000  :  ’  computes  new  GW  est  based  on 

previous  GW  and  HP 
5070  NEXT  N 

5  100  NN  =  0  :  PDW(0  )  =  10 

5 1 1 0  N  =  0  :  FOR  N  =  1  TO  5 

5120  IF  PDW(N)  <  10  THEN  5150  ELSE  5140 

5U0  nextFnPDW(N)  '  PDW‘N'I>  THEN  NN  x  N  ELSE 

^  30  THEN  LOCATE  1,1,0:  PR  INT” '"W  =  NOTCONVG/ "  : 
,NPU[  . X  5 :  NN  =  1 

5  160  ’ 

5200  PR  I  NT " ” C  =  ALL / "  :  GOSUB  2465  :  RETURN  output 

results  F 

5990  ’ 

^5??. ’ . . *  *  *  *  *  *  *  * • *  •  * • * • *  *  HELO  COMPONENT  WT  EON’S  SUBR 
4010’ 

4020  PAX  =  PEOPLE  •  250 

4050  SB  =  567.688  *  EXP(. 000041  •  GW( N  )  ) 


’computes  PT.PI  and  PO  based  on 


computes  new  GW  est  based  on 


=  1  0 
1  TO  5 

0  THEN  5150  ELSE  5140 
'DW(N-1  )  THEN  NN  *  N  ELSE 


: ’ output 


4050  W( 1 , N 
0 


PAX  =  PEOPLE  •  250 
SB  =  567.688  *  EXP 
1 . N )  =  1414. 548  • 


(.000041  •  GW(N ) ) 

EXP(  .  00  5  59*B#C*R ) 


W( 2 ,N  )  = 


4060  W (  5 , N  )  =  5467.29  *  LOC(SB 
4070  W  (  4  ,  N  )  =  .4015  *  GW(N)X.6<! 

4080  W( 5  N  )  =  .014  *  (.2014  •  ( 

4090  Wo A ( N  )  =  565.507  •  EXP(.0J 
4100  W6B(N  )  =  .999  •  (HP)''. 959 
4110  W6C( N  )  =  454 . 6 1 9* ( FUEL 


4  110 


5467.29  *  LOG(SB)  -  22118.' 
.4015  *  GWCN)  .6662  *  GEAR 
.014  •  (.2014  *  GW{ N  )  )  ~ 1 . r 
565.507  •  EXP(  . 000198  •  HP 


W  6  A ( N  ) +W6 


^?N  )  + 


W6C  (  N 


/ 6 . 5  )  . 0566 


W(  6  .  N  ) 


4120  W(7,N)  =  .00554  *  ( GW( N  )  )~ 1  . 224 


4 1 50  W(8.N )  =  1  59  • 

4140  W( 9  N )  =  68.226  •  LOG(HP)  -  587.598 

4150  W(  1 0 , N  )  =  6.65E-07  »  (GW( N  )  )A 1  .865 

416  0  W (  11  , N  )  =  9.78  *  (SB). 559 

4170  W ( 1 2 , N )  =  525  +  SPECIAL 

4175  W (  1  5  .  N  )  =  .159  *  SB  -t-18.11  •  PEOPLE 

4180  W ( 1 4 . N )  =  117.771  •  LOG(SB)  -710.594 


\  *.  .v  A 


•  • !  *  :Ws' vvvs'ito  f  yAY-VM-J  •  G 


4190  W( 1 5 , N )  =  .111  *  SB  +  3.49  *  PEOPLE  -  72 

4200  1  =  0: WE( N )  =  0 : FOR  1=1  TO  1 5 : WE( N ) =  W( I . N ) +WE( N  )  : NEXT 

I: ’weight  summation 

4210  GW(N+iT  =  WECN)  +  UL  +  PAX  +  FUEL 
42  15  NGWE(_N  )  =  WE(N)  +  UL  +  PAX  +  FUEL 
4220  PDWfN)  =  1 00  *  ABS(  1  -  ( GW( N+1 ) /GW( N ) ) ) 

4300  RETURN 

4500  LOCATE  1,1,0:  PR INT " ~W= TRYAGA IN / " :  LOCATE  23,1: 

PRINT  S PC ( 77  )  :  RETURN 

9000  CLS :  GW  =  MGW :  FLG2 = 1  : PR  I NT " ~C  =  ALL / " : 

PR  I NT " ~W  =  LOADNOTE/ " :  CH AIN " TR 1  " ,  , ALL 
9999  END 

10  ’  PROGRAM  "TR5 . BAS” . . . 1 7  SEPT  87 
20 

’»*»***»*»*«»«**»»#*»»*»*****»»*****##*»»**«»»»*•«***«* 

30  ’***  POWER  REFINEMENTS  PROGRAM  w/HIGH  SPEED  EFFECTS 

*  *  » 

40 

'tt»»»#*»**»****»»»**ft«»ft**»«*»ft**ft»******N»»«**K*»*»*** 


44  DIM 

T AS ( 300),PI(300),PO(300),PP(300),PT(300),PS(300),  PM(  3- 

50}  KEY  OFF  :  A$= " . U "  :  B$  =  "iWW  : 

HUHH" 

51  IF  ENGN  =  0  THEN  ENGN  =  2 

52  ’  GW  =  23000  :  R=  25.5  :  C=  1.5  :  CDO=  8.999999E-03 
:  B=  3  :  RPM  =  267.4:  S1=34:  GAP=4:  FHH=12: 
PASPEC  =  4000 :  FF  =  44:  AGL=10:  FLG3=1:  MXHVR=10000 
:CLALFA=5 .73 :  AOAST=14:  TWIST=-9-5:  MCRT=.8 

58  ’  TASCR  =  130:  TASMX  =  150 

70  COLOR  15,1  : PR INT " ~L = T ANDEM3 / "  :  PRINT  "~C=ALL/" 

90  ’  ***  INPUT  VARIABLES  *** 


100  CLS:  CNT  =  0 


120  LOCATE  1,12:  PRINT"*  HIG 
SUMMARY  *  {Alt -FI  for  HELP)" 


INPUT  VARIABLES  *** 

HIGH  SPEED  EFFECTS  AND  POWER 


130  PRINT 
140  PRINT 


1 .  GROSS  WEIGHT 
nw  -  " 

2 .  ROTOR 

. R  =  " 

3.  BLADE  DATA:  CH 

_  It 


50  PRINT 

ft] . 

60  PRINT 


[lbs] 

RADIUS 


CHORD  [ft] 


170  PRINT 


180  PRINT 


4  . 

CDO  = 


PROFILE  DRAG  COEFFICIENT 


CLALFA  = 


LIFT  CURVE  SLOPE  [per  RAD] 

190  PRINT  "  6.  STALL  ANGLE  OF  ATTACK  [deg] 

AOAST  =  " 

200’ PRINT  "  7.  GEOMETRIC  TWIST  [deg  with 

signl  . TWIST  =  " 

210  PRINT  "  8.  CRITICAL  MACH  NUMBER 

. MCRT  =  " 

220  PRINT  "  9.  NUMBER  OF  ROTOR  BLADES  PER  HEAD 


CRITICAL  MACH  NUMBER 


PRINT 


PRINT 


10.  OPERATING  RPM 
.RPM  =  " 

1  1  .  ROTOR  SHAFT  SPACING 


[rpm] 

[ft] 

[ft] 


13.  HEIGHT  OF  FORWARD  HEAD  ABOVE  WHEELS 


250  PRINT  "  12.  ROTOR  HEAD  VERTICAL  SPACING  [ft] 

. GAP  =  " 

260  PRINT  "  13.  HEIGHT  OF  FORWARD  HEAD  ABOVE  WHEELS 

I  f  1 1  FHH  =  M 

270  PRINT  "  14.  SPEC  PRESSURE  ALT  [normally  4000  ft 

MSL ] . . PASPEC  =  "  r 

280  PRINT  "  15.  HOVER  ALTITUDE  [ft  AGL] 

. AGL  =  "  . 

290  PRINT  "  16.  SPEC  CRUISE  AIRSPEED  [knots] 

. TASCR  =  " 
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300  PRINT  "  17.  SPEC  MAX  AIRSPEED  [knots] 

310  PRINT  "  18.  EQUIVALENT  FRONTAL  AREA  [ft~2] 

FF  -  " 

320  '  PRINT  ‘  T  9  .  SPEC  MAX  HOVER  ALTITUDE  (  IGE  )  [ft] 

. MXHVR  =  " 

325  COLOR  14,1 

330  PRINT  "  20.  COMPUTE  NEW  POWER  REQUIREMENTS 

21 .  RETURN  TO  MAIN  MENU" 

335  COLOR  15,1 

340  IF  FLG3  =  1  THEN  350  ELSE  560 

350  ’load  data  from  previous  chapter,  if  applicable;  or 
al lows  input ! 

370  IF  GW  <>0  THEN  LOCATE  3,61;  PRINT  USING  A$ ;  GW 
ELSE  GOSUB  710 

380  IF  R  <>0  THEN  LOCATE  4,61:  PRINT  USING  A$ ;  R 

ELSE  GOSUB  750 

390  IF  C  <>0  THEN  LOCATE  5,61:  PRINT  USING  A$ ;  C 

ELSE  GOSUB  790 

400  IF  CDO  <>0  THEN  LOCATE  6,61:  PRINT  USING  C$ ;  CDO 
ELSE  GOSUB  830 

410  IF  CLALFAO0  THEN  LOCATE  7,61:  PRINT  USING 
A$ : CLALFA  ELSE  GOSUB  870 

420  IF  AOAST  <>0  THEN  LOCATE  8,61:  PRINT  USING 

A$ : AOAST  ELSE  GOSUB  910 

430  IF  TWIST  <>0  THEN  LOCATE  9,61:  PRINT  USING 

A$ : TWIST  ELSE  GOSUB  950 

440  IF  MCRT  <>0  THEN  LOCATE  10,61:  PRINT  USING  A$ ; MCRT 
ELSE  GOSUB  980 


3,61:  PRINT  USING  A$ 
4,61:  PRINT  USING  A$ 
5,61:  PRINT  USING  A$ 


450  IF  B 


<  >0  THEN  LOCATE  11,61 


PRINT  USING  C$ ;  CDO 
7,61:  PRINT  USING 

8,61:  PRINT  USING 

9,61:  PRINT  USING 

PRINT  USING  A$ ; MCRT 
PRINT  USING  B$;B 
PRINT  USING  A$ ; R PM 


ELSE  GOSUB  1010 

460  IF  RPM  <  > 0  THEN  LOCATE  12,61:  PRINT  USING  A$;RPM 
ELSE  GOSUB  1180 

470  IF  SI  <>0  THEN  LOCATE  13,61:  PRINT  USING  A$;S1 

ELSE  GOSUB  1080 

480  IF  GAP  <>0  THEN  LOCATE  14,61:  PRINT  USING  A$;GAP 
ELSE  GOSUB  1110 

490  IF  FHH  <>0  THEN  LOCATE  15,61:  PRINT  USING  A$ ; FHH 
ELSE  GOSUB  1140 

500  IF  PASPECO0  THEN  LOCATE  16,61:  PRINT  USING 
B$ : PASPEC  ELSE  GOSUB  1180 

510  IF  AGL  <>0  THEN  LOCATE  17,61:  PRINT  USING  B$ ; AGL 
ELSE  GOSUB  119-' 

520  IF  TASCR  ^>0  THEN  LOCATE  18,61:  PRINT  USING 

B$ : TASCR  ELSE  GOSUB  1200 

530  IF  TASMX  <>0  THEN  LOCATE  19,61:  PRINT  USING 

B$: TASMX  ELSE  GOSUB  1210 

540  IF  FF  <>0  THEN  LOCATE  20,61:  PRINT  USING  A$ ; FF 
ELSE  GOSUB  1220 

545  IF  MXHVR  <>0  THEN  LOCATE  21,61:  PRINT  USING 

B$: MXHVR  ELSE  GOSUB  1225 
550  CNT  =  1 :  J  =  0 

560  IF  CNT  =  0  THEN  570  ELSE  LOCATE  23,1: PRINT  SPC(77): 
GOTO  610 

570  FOR  J  =  1  TO  19 

580  LOCATE  23,20: PRINT  "ENTER  YOUR  VALUE  FOR  ITEM 
NUMBER  "  ; J 

590  X  =  J  :  GOTO  630 

610  LOCATE  23 , 18: INPUT"WHICH  DO  YOU  WISH  TO  CHANGE  / 
SELECT  "  :X 

630  IF  X  <  1  OR  X  >  21  THEN  GOSUB  4500:  IF  J  =  0 

THEN  610  ELSE  580 

640  ON  X  GOSUB  710.750,790,830,870,910,950.980, 

1010, 1050, 1080, 1110,1140,1180,1190,1200,1210,1220,1225, 
1 230,9000 

650  IF  CNT  =  0  THEN  NEXT  J  ELSE  550 
660  GOTO  550 
670  ’ 


PRINT  USING 


680  ’ 

710  LOCATE 
PRINT  SPC[8i: 


PRINT""'K=  {  ALT-F1 


***  DATA  ENTRY 
1,1,0:  PRINT" ~K= { ALT -FI 
LOCATE  3,6 


SUBROUTINES  *** 

■ , HW1 / " :  LOCATE  3,61 
'INPUT"  ".GW 


IF  GW  <=0  THEN  PRINT " ~W=DVN0 / " 
_  FI > ,HW2 / "  : 

.  ,  LOCATE  4,60: INPUT "  ",R 

i<JRN  :  IF  R  <=  0  THEN  PRINT "~W=D^N0/" 

PRINT"~K={ALT-F1 > ,HW3/" :  LOCATE  5,61 
LOCATE  5,60: iNPUT "  ",C 

IF  C  <=  0  THEN  PRINT"~W=DVN0/ " 


goto  710  Else  re^{jrn 

PRINT°CAT|pcf  8  '  !  ALT~F1  }  aHW2^_  :  LOCATE_ 4,61 

PRINT" ~K=£aLT- 
GOTO  750  ELSE  RE 
790  LOCATE  1,1.0: 

PRINT  SPC(8i: 

PRINT"~K=1ALT-F1 }/" 

GOTO  790  ELSE  RETURN 
830  LOCATE  1 , 1 ,0:  PRINT "~K= ( ALT-F1 >,HW4/ " :  LOCATE  6,61: 

"RCDO:  PRINT"~K=Fa£t^£i_}_/“  L0C*fe  6 . 60 :  IN^UT" 


8^0  IF  CDO 
RETURN 
870  LOCATE  1,1, 
7,61 : PRINT  SP0(6 
880  LOCATE  7.6 
890  IF  CLALFA 
ELSE  RETURN 
910  LOCATE 
8,61 : PRINT  SP 
920  LOCATE 
950  IF  AOAST 
RETURN 
950  LOCATE  1 ,1 . 
9.61: PRINT  SP 6(6 
960  LOCATE  9. 
RETURN 


;p6  J 

8,6< 


<  = 


0  THEN  PRINT" ~W=DVN0/ "  :  GOTO  830  ELSE 
I:  PRINT"~K=< ALT-F1 } .CLALPHA/" :  LOCATE 

I 

I: INPUT"  ".CLALFA:  PRINT" ~K= { ALT-F1 }/ " 
<=  0  THEN  PRINT"~W=DVN0/ "  :  GOTO  870 

I:  PRINT"~K= { ALT-F1 > , STALLAOA/ " :  LOCATE 

I : INPUT"  ".AOAST  :  PRINT"~K={ ALT-F1 ) / " 

0  THEN  PRINT" ~W=DVN0/ "  :  GOTO  910  ELSE 


:  PRINT"~K=  {  ALT-F1  >  ,  BLDTWIST/  "  :  LOCATE 
0: INPUT"  ".TWIST  :  PRINT" ~K= ( ALT-F1 }/ " 

1 0 6 1 Sprint  spoi^  print”~k»<alt-fi  >  .mcrit/"  :  locate 

:  INPUT"  "  .MCRT  :  PRINT"~K*( ALT-F1  >/" 

0  THEN  PRINT"~W«DVN0/"  :  GOTO  980  ELSE 

PRINT "~K*{ALT-F1  >,HW5/":  LOCATE 

PUT"  " , B  :  PRINT"~K= { ALT-Fl }/" 

0  THEN  PRINT"~W-DVN0/"  :  GOTO  1010 

PRINT"~K*{ ALT-F1 ),HW6/":  LOCATE 

U  E 


994  _ 

1000  IF  MCRT 
RETURN 

1010  LOCATE  1.1.0: 

11.61: PRINT  SPC(6) 

1020  LOCATE  11, 60: INPUT"  ",B 


1  0 
EL 


;p  chV°: 

12,60: IN 


0  IF  B 
E  RETURN 
1050  LOCATE 
12  61  :  PRINT  SPCI. 

1 0&0  ‘LOCATE  12,60: INPUT"  "RPM  :  PRINT"~K«{ ALT-F1 
1070  IF  RPM  <-  0  THEN  PRINlf",~W«DVN0/ "  :  GOTO  1 050  El 
RETURN 

13861  :PRINTESPC?6)’0:  PRINT’''K"<ALT-FU  .HW7/" :  LOCATE 
•0RETURNCATE  ’ 5>6®:INPUT”  ”.S1  :  PRINT"~K=( ALT-F1 >/" 

U'®1 :PRINTBSPc|4)’0:  PRINT”'K*<A1T-F1 >.HWS/":  LOCATE 

nig  "LOCATE  14,60:  INPUT"  ".GAP  :  PRINT"~K=(ALT-F1  )/" 
•  RETURN  ' 

1*140  LOCATE  1. 1 . 0 :  PRINT" ~K= { ALT-F1 },HW9/"  :  LOCATE 

15,61: PRINT  SPC(8j 

1150  LOCATE  15,60: INPUT"  "  ,  FHH  :  PRINT " ~K  = { ALT-F1 >/ " 
1160  IF  FHH  <=  0  THEN  PRINT"~W=DVN0/ "  :  GOTO  1140  ELSE 
RETURN 

1 180  LOCATE  1.1 .0:  PRINT" ~K= { ALT-F1 > , HW 10/":  LOCATE 
I o.O I ! rRINT  orC ( o ) 

1185  .  LOCATS.  16^60: INPUT"  " , PASPEC  : 


PRINT"~K=( ALT-F1 >/ 


1  ,0: 


1 1 90  LOCATE  1  ,  .  . 

1 7,61 : PRINT  SPCC85 
1192  LOCATE  17, 60: INPUT 
:  RETURN 


•  m  W  • 

RETURN 

PRINT "~K={ALT-F1 } ,HW1 1 /" : 


,  AGL 


LOCATE 
PRINT”~K= ( ALT -FI >/" 
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200  LOCATE  1,  .0;  PR INT " ~K= ( ALT-F 1 ) , TASCRUZ / " :  LOCATE 

3,61: PRINT  SPC( 8) 

205  LOCATE  18,60:INPUT"  " , TASCR :  PR  I NT " ~K = < ALT -F 1  >/" 
RETURN 

210  LOCATE  1.1.0:  PR  I NT " ~ K  =  { ALT -F 1  > , HW 1 2 / " :  LOCATE 

9.61  : PRINT  SPC ( 8  ) 

212  LOCATE  1  9 , 60  :  INPUT"  "  ,  TASMX  :  PR  I  NT  "  ~'K  =  (  ALT  -  F  1  )  /  » 
RETURN 

220  LOCATE  1,1.0:  PR  I NT " ~K = ( ALT - F 1  )  , HW 1 3 / " :  LOCATE 

: 0. 61 : PRINT  SPC (8) 

'222  LOCATE  2 0 , 60  :  I N PUT "  ",  FF  :  PR  I  NT  "  ~  K  =  (  ALT  -  F  1  >  /  ’’ 

' 223  IF  FF  <=  0  THEN  PR  I NT " ~ W  = DVN0 / "  :  GOTO  1220  ELSE 

RETURN 

1225  LOCATE  1.1.0:  PR  I NT " ~K  =  < ALT - F 1  } . MXHVR ALT / " :  LOCATE 
21.61: PRINT  SPC(8) 

1227  LOCATE  2 1  , 60 : IN  PUT "  " , MXHVR :  PR  I NT " ~K  =  { ALT - F 1  > / " 

1228  IF  MXHVR  <=  0  THEN  PR  I NT " ~ W= DVN 0 / "  :  GOTO  1225 

ELSE  RETURN 

1230  . . .  ADMIN/CONTROL  SUBR 


123-  .OCATE  23,1:  PRINT  SPC(77) 

123  LOCATE  2 3 , 1 3 : I N PUT " d r e s s  < Sh i f t - Pr tSc >  for  hard 

:opv  ENTER  to  continue", X5 

1235  1LS:  LOCATE  1,1.0:  PR INT"~W=COMP/ " 

1237  1=299: TAS ( I  )  =  0 : PA  =  MXHVR : TEMP=59 :  GOSUB  1300: 
PS  PE'HVR  =  PT(I) 

1240  I  =  298:TAS(  I  )  =  TASCR :  PA=PASPEC:  TEMP=95:  GOSUB 

1300-.GOSUB  1800:  PTCRSP=PT(I) 

1250  1  =  0: PA=  0 :  TEMP  =  59 

1260  FOR  I  =  0  TO  TASMX  +  30  STEP  10 

1270  TAS( I )  =  I  :  GOSUB  1300  :  GOSUB  1800  : 

’compute  power  and  hse 

1280  NEXT  I  :  PR INT " ~C = ALL/ " :  BEEP:  CLS :  GOSUB  3000  :  ’ 

print  out  results 

1290  LOCATE  23.1:  PRINT  SPC(77) 

1292  LOCATE  23 , 1 3 : INPUT"press  < Sh i f t - Pr tSc >  for  hard 
copy.  ENTER  to  continue", X5 

1294  GOTO  4000  calc  losses  due  to  inlets, EAPS  and 

EEDS 

1300  ’»**»** . .  POWER  COMPUTATION  SUBR 

»»»•  *  *»#»*»»»#»###*»**»«««** 

1301  PIE  =  3.141592:  RHO0  =  2.37691E-03  :  RAD  =  57.296 
:  Vi  =  F PM /  6 0  =  0 

130'  CNT  =CNT  +  1  •  RTRHT  =  FHH  +  .5  *  GAP  :  GE  = 

(AG  RTRHT)  7  (2»R) 

133  ’GE  =  .5147  +  1.3432*GE  -  1.457»GE/'2  +  .708»GE^3  - 

1  2  jE^  4- 

j34  ''  J  =  RPM/9.55  :  VT  =  RV  »  R  :  VF  =  TAS(  I  )  * 

134  DELTA=( 1 -6 . 87535E-06 *  PA  )  ~5 . 256  :  THETA 

(TE  ’9.69  )/51 8 . 69 

1 35  •  IMA  =  DELTA  /  THETA  :  RHO  = 

SIC'  00 

13"  =  VF  /  VT  :  T  =  GW  :  S  =  B  *  C  /(PIE 

#  P 

143.  LOSS* 1  - (  SQR ( 2  *  CT  )  /  B  )  :  RE  =  R  » 

T  j  j!  •  .  =  S 1  /  R 

146  :=  *  2*RE''2*(  PIE-(  P I E/ 1  80  )  »  ACOS  (  S  1  /(2*RE)  )  )  + 

SI*.  :^2-S1"2/4j 

146-  GW  /  (  RHO  *  AE  *  VT~2  )  :  VI  = 

SQR  RHO* AE)  ) 

14  /.  1  . 46- . 253  *SR  :  AV  =PIE*R^2  -2*R*GAP 

150'.  =  SQR  (SQR  (  .25*(  AV/AE)/'4*(VF/VI  )-'4  +  1  ) 

.  5  ‘  '  E)/'2»(  VF/VI  )A2  ) 

15.  L  =  6  *CT / S  :  AR  =  R/C  :  BL  =  CT/S  :  DL  = 

GW  IE  *  R"2) 

16'.  I 7  =  T  »  VI  »  K  *  KU  /  550 

16.  OE  <=  2  THEN  P I ( I )  =  PGE  *  T  *  VI  »  K  »  KU  /550 
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RHO  /  2200 )  *  (  1  + 


rw:  w  wvuiuw  w vrj  w» 


=  ( CDO  *  B  *  C  *  R  *  VT~3 


=  VF~3  *  FF  *  RHO  / 
=  PI ( I  )  +  P0( I  )  +  P 


1  1  00 
P(  I  ) 


1630  PO(I)  =  (CDO  *  B  *  C  *  R  *  VT~3 
4.3  *  MIT2) 

1640  PP(I)  =  VF~3  *  FF  *  RHO  /  1100 
1660  PT  (  I  )  =  P I ( I )  +  P0( I  )  +  PP(I)  : 

(  PHI)  +  P0(  I  )  ) 

1680  RETURN 

1800  ’  ******  HIGH  SPEED  EFFECTS  R 

ANGLES  *»***»»# 

1803  IF  ,  TAS( I ) = 

PTM I N  =  PT  (  I  )  : PTMAX  =  PT ( I ) : TASMINP=TAS( I ) 
RETURN 

1810  IF  TAS(I)  <  59  THEN  RETURN 
1820  B 1  =  TIPLOSS  :  T7  =  TWIST/RAD 

RHO  *  AE  *  VF)) 

1890  LAMDA  =  - ( P P (  I ) *  550 / GW  +  VIFF)/VT 
1900  T 1  =  .  5* ( B1 "2+ . 5*MU~2 )  : 

. 5»MU~2*B1 

1920  T3  =  .25*  81~2  *(B1~2  +  MU~2  ) 

(  B1  "2  +  MU~2/4  ) 

1940  J 2  =  2  *  CT  /  (CLALFA  *S)  :  J3  = 


T(^0=iJj(I)  +  PO(I)  +  PP(I)  :  FM  =  PI  (  I  )  / 

ETURN 

-  ***#»»  HIGH  SPEED  EFFECTS  ROUTINE  w/  CONTROL 


(I)  =  0  THEN 

S(  I ) : TASMAX  P  =  TAS( I  )  : 


V  IFF  =  ( T / ( 2  * 


T2  =  B 1 


’>  /  3  + 

5*  MU* 


1940  J2  =  2  *  CT  /  (CLALFA  *S)  :  J3  =  LAMDA  *T1  :  J4 

_  j  2  —  J3_  (T7  *  T3 ) 

I960  All  =  (  4*(  (  MU*(  B1  ~2  )/2  )-(MU~3/8)  )  )/(  B1  ~2*(  B1  ~2- .  5* 
MU~2  )  ) 

1970  A 1  2  =  8*MU*B1/(3*(B1''2-.5*MU/V2)  ) 

1980  A 1 3  =  ( 2  *  B 1 ^2  *  MU)/(B1~2  -  .5  *  MU~2 ) 

1985  A 1 4  =  ( B i ~2  + 1  .5*MU/'2)/(  B1  ~2-.5*MU~2  ) 

1990  J5  =  -LAMDA  *  All  -  (T7*A13) 

2000  H8=( J4*A1 4-J5*T4 )/ ( T2*A1 4-T4*A1 2 )  :  COLANGLE  = 

H8*RAD 

2010  H2  =  ( J5*T2-J4*A1 2  )/( T2*A1 4-T4*A1 2 )  :  CYCLIC  = 

H2*RAD 

2030  K0  =  LAMDA/ (  1 +MU )  :  F  =  H8-H2+K0+T7  :  AOA270  = 

F  *  RAD 

2040  IF  AQA270  <  AOAST  THEN  PS(I)=0:  GOTO  2060 
2050  PS(I)  =  PO( I  )*((AOA270  -  AOAST)/4) 

2060  GG  =  H8+H2+K0+T7  :  AOA90  =  GG*rAd 


J3  =  LAMDA  *  T 1 


2070  MACHVEL 

49. 042*  (51  8. 67*  (  1  -.  0000068755856/?*  PA  )  )~.5 

2080  MTIPHVR  =  ( RV*R ) /MACHVEL  : 


2080  MTIPHVR  =  ( RV * R ) /MACHVEL  :  MTIPFLT  =( 

RV*R+VF)/ MACHVEL 

2090  M90  =  MT I PHVR * ( 1 +MU ) :  IF  MTIPFLT  <  MCRT  THEN 

PM( I )  =  0 :  GOTO  2120  ,  , 

2  100  DMD  =  M90-MCRT  :  C PM=S  * (.012  *DMD+ . 1  * ( DMD~3 ) )  : 

PM[I )=(CPM*AE*RHO*VT-3 )/550 

2120  PT( I )  =  PI(I)  +  PO(I)  +  PP(I)  +  PS(I)  +  PM( I ) 

2140  IF  PT ( I  )  <  PTMIN  THEN  PTMIN  =  PT(I)  :  TASMINP  =  I 

2143  IF  TASf I  }  =  TASCR  THEN  PTCR  =  PT(I) 

2145  IF  TAS(I)  >  TASMX  THEN  2180 

2150  IF  PT(I )  >  PTMAX  THEN  PTMAX  =  PT(I)  :  TASMAXP  =  I 

2180  RETURN 

3000  ’  ###***»###*#  HIGH  SPEED  EFFECTS/ POWER  RESULTS 

OUTPUT  SUBR  »»******««* 

3003  IF  PSPECHVR  > PTMAX  THEN  PTMAX  =  PSPECHVR:  TASMAXP 
=  0 

3004  RSHP  =  PTMAX 

3005  FOR  I  =  0  TO  TASMX  +  30  STEP  10 

3010  IF  TAS(I)  =  0  THEN  3020 

3011  IF  TAS(I)  =  TASMINP  THEN  3050 

3012  IF  TAS(I)  =  TASCR  THEN  3050 
3014  IF  TAS(I)  =  TASMX  THEN  3050 

3018  12  =  (  l+20)/20  :  IF  12  -  FIX(I2)  =  0  THEN  3050 

ELSE  3080 

3020  PRINT"  *  TOTAL  POWER  (SHP)  REQUIRED  WITH 

HIGH  SPEED  EFFECTS  *" 

3025  PRINT 


IF  MTIPFLT 


MCRT  THEN 


301  1 
30  1  2 
30  1  4 
3018 


TOTAL  POWER  (SHP)  REQUIRED  WITH 


3030  PRINT" 


TAS( kts ) 
PT" 


3040 


PRINT" 


3080^Ne£tAI( 1 ) , PO ( I ) , PP?I^PS( I ) , PM( I ) , PT ( I ) 

IP  P0WER  =  ***'*** 

3100  LOCATE  21,12:  PRINT  US INC'MAX IMUM  POWER  =  ### , ### 
SHP  AT  ####  knots" :PTMAX , TASMAX P 

3110^LQCATE  22  , 1 2 :  PRINT  USING"POWER  AT  HOVER  CEILING  = 

###,###  SHP  AT  Hit###  ft  MSL"  ;  PSPECHVR  ,  MXHVR 

3190  RETURN  :  ’returns  to  ADMIN/CONTROL  SUBR  at 


iT  TT  TT  •  TT  TT  TT  UU  I  r\  ±  TT  TT  TT  TT  TT  i.  C 

3190  RETURN  :  ’ret 

line  1250 
3900  ’ 

4000  CLS :  ’*******  ENGINE 

OUTPUT  »*»»*****»#*#*** 
4005  PRINT" 

INSTALLATION  LOSSES  *" 
4010  PRINT 

4015  PRINT"  I.  - 

4020  PRINT"  1 . 

4025  PRINT"  2. 

4030  PRINT"  3. 

4034  PRINT 

4040  PRINT"  II.  - 

-  EAPS" 

4045  PRINT"  4 

10%  }" 

4050  PRINT" 

SEPARATORS  {  2  -  6%  ) " 
4055  PRINT"  6. 

4060  PRINT 

4070  PRINT"  I 

EEDS" 

4075  PRINT"  7. 

4080  PRINT"  8. 

4085  PRINT"  9. 


INSTALLATION  LOSSES  SUBR  & 
*  POWER  REFINEMENTS  -- 


-  INLETS  AND  INLET  DUCTING 

1 .  -S-  TYPE  {  5%  >" 

2.  ICE  SHIELD  (  10%  }" 

3.  STRAIGHT-IN  {  2%  >" 

-  ENGINE  AIR  PARTICLE  SEPARATORS 
4.  FOAM  TYPE  BARRIER  FILTERS  ( 


5 .  POWER  i 
6.  NONE  INSTALLED" 


HYDRAULIC  ) 


4100  GOSUB  4200 

GOTO  4300 

4200  LOCATE  23, 1 


III.  -  ENGINE  EXHAUST  DEVICES  - 

7.  SIMPLE  HEAT  DIFFUSER  {  3%  }" 

8.  INFRA-RED  SUPPRESSOR  {  5%  >" 

9.  NONE  INSTALLED" 

4200:  GOSUB  4230:  GOSUB  4260:  GOSUB  4280: 


4200  LOCATE  23.1:  PRINT  SPC(77) 

4202  LOCATE  $3,10:  INPUT^SELECT  THE  DESIRED  INL 
SYSTEM  " , Y 1 

4204  IF  Y1  <  1  OR  Y1  >  3  THEN  GOSUB  4500:  GOTO  4200 
4208  ON  Y 1  GOSUB  4220,4224,4228 

4212  PINLET  =  INLET  *  1 00  :  RSHPINLT  =  RSHP  *  INLET 


INLET 


"INLET  LOSSES 


l### 


:  PRINT" ***" :LOCATE 

"  : RETURN 

:  PRINT"***" : LOCATE 

"  : RETURN 

PRINT" ***": LOCATE 
"  -.RETURN 


4216  j LOCATE  6,42:  PRINT  USING  "INLET  LOSSES  =  ##### 
SHP  ###.#  %"; &SHPINLT , PINLET 
4218  RETURN 

4220  INLET  =.05:LOCATE  4,9  :  PRINT" ***": LOCATE 

5,9: PRINT "  " : LOCATE  6.9:PRINT"  " : RETURN 

4224  INLET  =.1  : LOCATE  5,9  :  PRINT" ***": LOCATE 

4,9: PRINT"  ": LOCATE  6.9:PRINT"  " : RETURN 

4228  INLET  =.02 -.LOCATE  6,9  :  PR  INT  "***":  LOCATE 

4,9: PRINT"  ": LOCATE  5,9: PRINT"  " : RETURN 

4^29  ’ 

4230  LOCATE  23.1:  PRINT  SPC(77) 

4232  LOCATE  23,10:  INPUT'^SELECT  THE  DESIRED  EAPS 
SYSTEM  " ,Y1 :  Y1-Y1-3 

4234  IF  Y1  <  1  OR  Y1  >  3  THEN  GOSUB  4500:  GOTO  4230 
4238  ON  Y 1  GOSUB  4248,4250,4252 

4242  PEAPS  =  EAPS  *  100  :  RSHPEAPS  =  RSHP  »  EAPS 

4246  LOCATE  11,42:  PRINT  USING  "EAPS  LOSSES  =  ##### 
SHP  ###.#  %"; RSHPEAPS, PEAPS 

4247  RETURN 

4248  EAPS  =  .1:  LOCATE  9,9:  PRINT" ***": LOCATE 


DESIRED 


EAPS 


10,9: PRINT" 


" : LOCATE  11,9: PRINT' 


" : RETURN 


4250  EAPS  =.04:  LOCATE  10,9:  PRINT" *  *  * " : LOCATE 

9,9: PRINT "  LOCATE  11,9:PRINT"  " : RETURN 

4^52  EAPS  =  0  :  LOCATE  11,9:  PR INT "***": LOCATE 

9,9: PRINT"  " : LOCATE  10,9:PRINT"  " : RETURN 

4259  ’ 

4260  LOCATE  23.1:  PRINT  SPC(77) 

4261  LOCATE  £3,10:  INPUT^SELECT  THE  DESIRED  EEDS 
SYSTEM  " . Y1 :  Y1 =Y1 -6 

4262  IF  Y 1  <  1  OR  Y 1  >3  THEN  GOSUB  4500:  GOTO  4260 

4264  ON  Y 1  GOSUB  4277,4278,4279 

4272  PEEDS  =  EEDS  *  100  :  RSHPEEDS  =  RSHP  *  EEDS 


4274  LOCATE  16.42:  PRINT  USING  "EEDS  LOSSES 

SHP  M .H  %" ; R&HPEEDS, PEEDS 

4276  RETURN 

4277  EEDS  =.03:  LOCATE  14,9:  PRINT"** 

15,9: PRINT"  " : LOCATE  l6.9:PRINTfi  " : RETURN 
42^8  EEDS  =.05:  LOCATE  15,9:  PRINT"** 

14,9: PRINT"  ": LOCATE  16,9:PRINTA  " : RETURN 
42^9  EEDS  =  0  :  LOCATE  16,9:  PRINT"** 

15. 9:  PRINT"  "  :  LOCATE  14, 9: PRINT*  RETURN 

4280  ’***  total  losses  computatio 

#####################***#***### 

4281  ENGNLOST  =  RSHP* ( INLET+EAPS+EEDS )  :  M 

RSHP* (.05  *ENGN+ . 03 )  +  1 0 

4282  PCTENGN  =  ENGNLOST *  1 00/RSHP  : 


PR INT " *  *  *  " 
" : RETURN 
PR  I NT " *  *  *  " 
" : RETURN 
PR INT " *  *  *  " 
" : RETURN 
computat ion 


LOCATE 

LOCATE 

LOCATE 

subr 


MISCLOST* 1 00/RSHP 
4284  RSHPLOST  =  ENGNLOST  +  MISC 
4286  ESHP  =  RSHP  +  RSHPLOST 
RSHPLOST* 1 00/ESHP 
4288  LOCATE  18,12:  PRINT  USING 
INSTALLATION  LOSSES 
#" ; MISCLOST , PCTMISC 
4290  LOCATE  19,12:  PRINT  USING" 
(percent  of  ESHP)  = 

%v'  :  RSHPLOST  ,  PCTLOST 

42§2  LOCATE  20., 1 2 :  PRINT  USING" 

REQUIRED  [RSHP]  =  HUH , HUH  SHP"; 


MISCLOST  = 
PCTMISC  = 


ENGNLOST  +  MISCLOST 
P  +  RSHPLOST 


USING 


PCTLOST  = 


MW 


XMSN 

SHP 


TOTAL  LOSSES 
SHP 

MAXIMUM  POWER 


SHAFT 


( 0=N0 ,  1 = YES ) 


REQUIRED  TRSHP]  =  HUH , HUH  SHP";RSHP 

4294  LOCATE  21.10:  PRINT  USING"*  ENGINE  SHAFT 

HORSEPOWER  REQUIRED  rESHPJ  =  UtiH SHP"; ESHP 
4296  FLG3  =  1  :  RETURN 

4300  LOCATE  23,1:  PRINT  SPC(77) 

4305  LOCATE  23,13:  INPUT"ANY  CHANGES  ?  (0=N0,  1=YES) 
"  ,  ANS 

4^10  IF  ANS  =  0  THEN  4370  ELSE  IF  ANS=1  THEN  4340  ELSE 
GOSUB  4500:  GOTO  4300 

4340  LOCATE  23,45:  INPUT"  WHICH  ITEM  ?  (1,2  or  3 ) 

"  X5 

4^44  IF  X5  <  1  OR  X5  >  3  THEN  GOSUB  4500:  GOTO  4340 
4350  ON  X5  GOSUB  4200.4230,4260 
4360  GOSUB  4280  :  GOTO  4300 
4370  LOCATE  23.1:  PRINT  SPC(77) 

4375  LOCATE  23 , 1 3 : INPUT "press  < Shif t-PrtSc >  for  hard 
copy,  ENTER  to  continue", X5 
4380  GOTO  100 

4500  LOCATE  1,1,0:  PR INT "~W= TRY AGAIN/  "  :  LOCATE  23,1: 

PRINT  SPCt 77 ) :  RETURN 

9000  CLS :  PRINT"~C=ALL/" :  PR INT " ~W=LOADNOTE/ " : 


4380  GOTO  100 
4500  LOCATE  1,1,0:  PR 
PRINT  SPCf 77 ) :  RETURN 
9000  CLS:  PRINT" 

CHAIN"TR1 " , , ALL 
9999  END 

10  ’ PROGRAM"TR6 . BAS"  1 
20  KEY  OFF  :  B $="##### 


17  SEPT  87 
H"  :  C$="# 


i »##*#######**##»#»##*#»***#***####»**#**»*#*##*******- 
##*##*#*### 


40  ’  * 


*»»  ENGINE  &  XMSN  SELECTION  *** 


PROGRAM 


1 :CLS: LOCATE 
GOTO  120 
1 :CLS: LOCATE 


t  summation,  power  etc. 

:  W(  3 , 1  )=3333  :  W(4, 1  )  =  600 

W(  7 , 1  )  =  780  :  W( 8 , 1  )  =  1 30  :  W(9,1)»140 


>***#*#*#****###*#**#*###»#*####*####»#**##***#*###*##_ 

##*###**#*# 

70  ’  ***  CHAPTER  SIX  MAIN 

#  #  # 

80  ’ 

1 00  PRINT " ~C  =  ALL / " : PRINT " ~L  =  TANDEM6/ " 

1 20  COLOR  1 , 1 

23,1 ,0: PRINT " ~W=ENGMENU / " : INPUT" " ,X 
130  COLOR  15,1  :  ON  X  GOSUB  200,300,4 00  : 

1  60  ’ 

200  COLOR  1.1.,. 

23.1 ,0: PRINT"~W=ENGNSELN/" : INPUT”" ,X6  : RETURN 
210  ! 

300  'temporary  data  for  weight 
310  ’ ENGN  =  2  :  W( 1 , 1)=262 

:  W( 5 , 1 ) =2 1 00 
320  ’ W( 6 . 1 ) =2800 
:  W( 1 0 , 1  )  =  1  00 

330  ’W( 1 1  ,  1  )  =  500:  W( 1 2 , 1  )  =  400  :  W(13,1)  =  700 

W(  14, 1  )  =  1 50 :  W( 15, 1  )  =  1 90 

340  ’ W6A( 1 )=900:W6B( 1 )=1 600:W6C( 1 )=300 

MGW=23000:R=25.5:C=1 .5:CDO=.009 

342  ’ B=3 :RPM=267 . 4 

SI =34 : GAP=4 : FHH= 1 2 : PA=0 : TAS=0 : AGL= 1 0 : NENG=2 : ESHP=2600 
344 

’ PAX = 6250 :FUEL= 2500 :UL=1 000 :RHO= . 002377 : PIE=3 . 14159: 
RHO0=. 002377 
350  GOTO  500 
360  ’ 

400  LOCATE 

23,1 . 0 : CLS : PRINT" ~W=LOADNOTE/ " :CHAIN"TR1 " , .ALL 
460  5 

500  ’  *#**»*»»**#**  SECTION  6.1  &  6.2 

*********»*#*#«*##****»**## 

510  CLS 

512  LOCATE  1.28:  PRINT"*  NUMBER  OF  ENGINES  * 

{SECTION  6.1}" 

516  LOCATE  2,10:  PRINT"].  NUMBER  OF  ENGINES  =  " ; ENGN 
520  LOCATE  2,44:  PRINT" ( specif ied  in  Chapter  3) 

530  LOCATE  3,28:  PRINT"  *  TYPE  OF  ENGINES  * 

{SECTION  6.2}" 

540  LOCATE  4,10:  INPUT"2.  NUMBER  OF  ENGINES  COMPETING 
FOR  SELECTION  ": NENGSEL 

550  LOCATE  23,3$:  PRINT"  " : LOCATE  23,5:  INPUT" ANY 

CHANGES  ?  (0=NO ,  1=YES)  " , ANS 

560  IF  ANS  =  0  THEN  605  ELSE  IF  ANS=1  THEN  570  ELSE 
BEEP:  GOTO  550 

570  LOCATE  23^38:  INPUT"WHICH  ITEM  ?  (1  or  2)  ",X6 


580  ON  X6  GOSUB  590,595 
: GOTO  550 

585  ’  ,  x 

590  LOCATE  2,33:  PRINT  SPC(3) 
INPUT" ".ENGN  :  RETURN 

595  LOCATE  4,55:  PRINT  SPC(3) 

INPUT"" ; NENGSEL:  RETURN 
600  ’ 

605  LOCATE 

PRINT'* 


LOCATE  23,1:  PRINT  SPC(75) 


LOCATE 

LOCATE 


2,34: 

4,56: 

5,2: 


_ _ _ _ _ _ _ M 


606  LOCATE  23.1:  PRINT  SPC 
610  LOCATE  6,25: PRINT" *  ENOIN 


611  PRINT"  ENGINE:" 

613  PRINT"  3.  DRY  WEIGHT  (lbs) . 

614  PRINT"  4.  SHP  (ssl)  military.... 

615  PRINT"  5.  SFC  (ssl)  military.... 

616  PRINT"  6.  INITIAL  COST .  $K 

620  PRINT"  7.  OP  COST/HR/ENG .  $ 

622  PRINT"  8.  PREV  MAINT/HR/ENG . .  $ 


SELECTION  PARAMETERS  *" 
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631  PRINT"  9.  MTBMA  (hrs) . " 

632  PRINT"  10.  MDT  (hrs) . " 

633  PRINT"  11.  MTBF  (hrs) . " 

634  PRINT"  12.  MTBR  (hrs) . " 

640  K=32:KK=30:FOR  1=1  TO  NENGSELtIF  1=1  THEN  A$="A" 
ELSE  IF  1=2  THEN  A$="B":ELSE  IF  1=3  THEN  A$="C"  ELSE  IF 
1=4  THEN  A$= "D"  ELSE  IF  1=5  THEN  A$="E" 

650  LOCATE  7,K  :  PRINT  A$ 


LOCATE  8 , KK 
LOCATE  9 ,  KK 
LOCATE  1  0  ,  K 
LOCATE  1 1 ,K 
LOCATE  1 2 , K 
LOCATE  13, K 
LOCATE  14, K 
LOCATE  1 5 , K 
LOCATE  1 6 , K 
LOCATE  1 7 , K 
LOCATE  23,5: INP 


8 , KK :  INPUT 
9  ,  KK :  INPUT 
1  0 , KK : INPUT 
1  1  , KK : INPUT 
12, KK: INPUT 
1  3 , KK : INPUT 
14, KK: INPUT 
1  5 , KK : INPUT 
1  6 , KK : INPUT 


SStH- 

MTBMA ( 
MDT  (  I 
MTBF  f : 


1  7 , KK : INPUT:""  ,MTBR(  I) 

: INPUT "ANY  CHANGES  7  (0=NO,1=YES)  " , ANS 
THEN  720  ELSE  IF  ANS=1  i’HEN  690  ELS 


w  mi  i  ^nnn  vjuu  i  \  v  —  i*  \ 

680  IF  ANS=0  THEN  720  ELSE  IF  ANS=1 
BEEP:  GOTO  710 

690  LOCATE  23,38:  INPUT"WHICH  ITEM  ?  (' 
:  X6=X6-2 

700  ON  1 

780,784.788.792,794,796,798,800,802.804 
710  LOCATE  23,1:  PRINT  SPC(75):  GOTO  670 


thru 


)  ELSE 
i  "  ,  X  6 
GOSUB 


K  =  K+ 1 0  :  KK=KK+ 1 0  : LOCATE  23,1:  PRINT  SPC(75):  NEXT 


720  K  =  K+ 1 0  :  KK  =  KK+10  :LOCATE  23, 
I 

725  ’ 

730  FOR  1=1  TO  3:  LOCATE  18  + 
I : LOCATE  23.1: PRINT  SPC(75) 

731  LOCATE  19,10 

732  INPUT" 1 3 .  SPECIFICATION  AV 

YEAR  .  "  :  AFL 

734  LOCATE  20 . 1 0 

735  INPUT " 1 4 .  SPECIFICATION  AV 
LIFE  IN  YEARS  ":SL 

737  LOCATE  21 , 1  & 

738  INPUT "15.  AVERAGE  FLIG 
.  " ; TAV 

740  ’ 

745  LOCATE  23,5 : INPUT"ANY  CHANGES 
747  IF  ANS  =  0  THEN  750  ELSE  IF 
BEEP :  LOCATE  23.1:  PRINT  SPC(.38)  : 
750  LOCATE  23.):  PRINT  SPC(75) 

752  LOCATE  23 , 1 3 : INPUT"press  < 
copy.  ENTER  to  continue", x6 
755  ? 


1  8  +  1 , 67 : PRINT  SPC(9):NEXT 


AVERAGE  FLIGHT  HOURS 


AVERAGE  AIRFRAME  SERVICE 


FLIGHT  HOURS 


?  (0 
ANS  = 
GOTO 


(0  =  NO,  1= 
S=1  I’HEN 
TO  745 


FLIGHT 


1  =  YES)  " , ANS 
EN  730  feLSE 


<  Shif  t- Pr  tSc  > 


760  FOR  1=1  TO 
included  in  the 
764  YM(_I 

NRPL1 =AFL*SL/MT 

766  NRPL( I ) = 

767 

LC (  I  )=ENGN*(RD( 
H ( 1  .35*IC( I) )- 

768  AVAIL ( I ) 


NENGSEL 

SY7Wi5F«(  1  )  *AFL/1  000  :  Y°(  I  )=OC(  I  )  *  AFL/  1000: 

L ( I  )Jneng*(cint(nrpli  ) ) 

MRD(_I)  +  ICaj  +  ()SL*(Y0(  D+YM(  I  )  )  )  +  (NRPL(  I  ) 

IL( I )=MTBMA( I ) /(MTBMA ( I )+MDT( I ) ) 


RD( I )  =  0 


har  d 


costs 


RELY(  I  )  =  EXPI^-TAV 


-(  . 8* IC( 
)=MTBMA( 
MAINT( : 
4V /MTBF ( 


771  RC( I  )  =  1  .  35*IC( I ) :SV( I  =  .8 

772  NEXT  I  :  GOTO  840 

774  ’ 

775  ,  *#»####*#*##  ENGINE  SEL 

CHANGE  SUBR  »**»**»**»* 

776  ’ 

780  LOCATE  8,KK: 

8,KK: INPUT; "" ,DW( I )  :  RETURN 


+  ()SL*(YO(  I)+YM(  I  )  )  )  +  (  NR  PL  (  I  ) 

)  /(MTBMA( I ) +MDT ( I ) ) 

=  (MDT  (  I )/ (MTBMA ( I )+MDT( I ) ) )*TAV: 

:SV( I )= . 8 * IC ( I  ) 


SELECTION  PARAMETER  INPUT 


PRINT  SPC( 7 ): LOCATE 


784  LOCATE  9 , KK :  PRINT  SPC ( 7 ): LOCATE 

9. KK: INPUT; "" ,SHP( I J :  RETURN 

788  LOCATE  10, KK: PRINT  SPC( 7 ): LOCATE 

1 0. KK: INPUT; "" ,  SFC  ( I  )  :  RETURN 

795  LOCATE  1 1 , KK : PRINT  SPC ( 7 ): LOCATE 

1  1  tKK: INPUT; " " , IC( ij  :  RETURN 

794  LOCATE  12,KK:PRINT  SPC ( 7 ): LOCATE 

1 2 . KK: INPUT ; "" ,OC( 1}  :  RETURN 

796  LOCATE  13,KK:PRINT  SPC ( 7  ): LOCATE 

1 3, KK: INPUT; " " , PMA(I} :  RETURN 

798  LOCATE  14,KK:PRINT  SPC ( 7 ): LOCATE 

1  4 ,KK : INPUT ; "" , MTBMA(l ) :  RETURN 

800  LOCATE  1 5 , KK : PRINT  SPC ( 7  ): LOCATE 

1  5,KK: INPUT ; "" ,MDT( i]  :  RETURN 

802  LOCATE  1 6 , KK : PRINT  SPC ( 7 ): LOCATE 

1 6 . KK: INPUT ; "" ,MTBF(I )  :  RETURN 

804  LOCATE  1 7 , KK : PRINT  SPC ( 7 ): LOCATE 

1 7, KK: INPUT ; "" , MTBR( I )  :  RETURN 

810  ’ 

820  ’ 

840  FOR  1=1  TO  NENGSEL 

841  IF  DW(  I ) <  =  300  THEN  GOTO  850  ELSE 

842  IF  DW(I)>300  AND  DW(I)<=700  GOTO  860  ELSE 

844  IF  DW(I)>700  AND  DW(I)<=1100  GOTO  870  FLSE  IF 

DW( I ) > 1 1 00  GOTO  880 

850  EWT( I )=DW( I )*1 .29:  GOTO  890 

860  EWT( I )=DW( I  )*1  .27:  GOTO  890 

870  EWT( I )=DW( I  )  *  1  . 24 :  GOTO  890 


SPC ( 7  )  : LOCATE 
SPC ( 7 ) : LOCATE 
SPC( 7 ) : LOCATE 
SPC ( 7 ) : LOCATE 
SPC ( 7 ) : LOCATE 
SPC ( 7 ) : LOCATE 
SPC(  7  )  -.LOCATE 
SPC ( 7 ) : LOCATE 
SPC(  7  )  -.LOCATE 


TO  NENGSEL 
/(  I  )  <  =300  TI 


850  EWT (  I  )  =  DW ( I  )  *  1  .29:  GOTO  890 
860  EWT( I )=DW( I  )*1  .27:  GOTO  890 
870  EWT (  I  )  =  DW (  I  )  *  1  .24:  GOTO  890 
880  EWTC I )=DW( I )* 1 . 2 :  GOTO  890 
890  NEXT  I 
940  ’ 

950  ’ 

960  ’  **«  SECTION  6.3  &  6.4  *** 

970  ’ 

980  ’ 

990  CLS : LOCATE  1 , 25 : PRINT” •  ENGINE  SELECTION  CRITERIA  * 
(  6.3  &  6.4  >" 

991  LOCATE  3,38:  PRINT" -  ENGINE 


992 
E" 

993 

994 

995 

1  000 
1  001 
1  002 
1  003 
1  004 
1  005 
1  006 
1010 
1011 
1012 

1013 

1014 
1  020 
1  021 
1  022 
1  023 
1  024 
1  025 
1  026 
1  030 
1  031 
1  032 
1  033 
1  034 


LOCATE  ‘ 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

K 1 =37: 


39:  PRINT’’A 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 


POWERPLANT  WEIGHT( installed) 

LIFE-CYCLE  COST  . . 

ENGINE  LIFE  (hrs) . 

No.  OF  REPLACEMENTS . 

R/D  COSTS . 

INITIAL  COSTS . 

ANNUAL  MAINT.  COST . 

ANNUAL  OPERATING  COST... 

REPLACEMENT  COST . 

SALVAGE  VALUE . 

AVAILABILITY  (per  engine)... 
RELIABILITY  (per  engine ) . . . . 
MAINTAINABILITY  (per  engine) 
PERFORMANCE  [military  SHP).. 
OR  1=1  TO  NENGSEL 
E  6 , K 1 : PRINT  USING  B$;EWT(I) 
E  7  ,  K  1  :  PR  INT  USING  BJ>;LC(I) 

E  8 , K 1 : PRINT  USING  BSjMTBRCI 
E  9 , K 1  : PR INT  USING  B$ : NR  PL ( I 
E  10,  K1  -.PRINT  USING  B$;RD(I) 


RELIABILITY  ( 

maintainabil: 
PERFORMANCE  ( 


FOR  1=1 
TE  6 , K 1 : 
TE  7 , K 1 : 
TE  8 , K 1 : 
TE  9 , K 1  : 
TE  1 0 , K 1 
TE  1  1  . K  1 


TO  NENC 
PRINT  1 
PRINT  I 
PRINT  I 
PRINT  t 
: PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 


ne  )  . 
le )  .  . 


USING 

USING 

USING 

USING 

USING 

USING 


lcHv 

MTBR(  I 

?qi! 

; IC( I  ) 

; YM( I  ) 

; YO( I  ) 
;RC  I  ) 
;SV  I) 

; AVAlL( 


1035  LOCATE  17,K1:PRINT  USING  C$;RELY(I 

1040  LOCATE  1 8 , K 1 : PRINT  USING  CU;MAINT( 

1041  LOCATE  1 9 , K 1 : PRINT  USING  B$;SHP(I) 

1050  NEXT  I 

1060  IF  NENGSEL= 1  THEN  EN=1:GOTO  1080  ELSE 

1061  LOCATE  21,1 : PR INT  SPC[77J : LOCATE  21,1 
1065  INPUT"ENTER  THE  LETTER  OF  THE 


1065  INPUT"ENi'ER  THE  LEI 
(i.e.  A  ,  B  ,  C  )  ",D$ 

1070  IF  D$  = " A "  THEN  EN  = 1  : 


1  =K  1  +9 


LOCATE  21.12 
OF  THE  SELECTED  ENGINE 


EN  =  1  :  GOTO  1  080  _ _  _ 

THEN  EN  = 1  :  GOTO  1080 

1072  IF  D$  = " B "  THEN  EN  =  2:  GOTO  1080  ELSE  IF  D$="b" 

THEN  EN  =  2 :  GOTO  1080 

1074  IF  D$  = " C "  THEN  EN  =  3:  GOTO  1080  ELSE  IF  D$="c" 

THEN  EN  =  3 :  GOTO  1080 

1076  IF  D$= "D"  THEN  EN=4:  GOTO  1080  ELSE  IF  D$="d" 

THEN  EN=4 :  GOTO  1080 

1078  IF  D$  = " E "  THEN  EN  =  5:  GOTO  1080  ELSE  IF  D$="e" 

THEN  EN  =  5 :  GOTO  1080  ELSE  1060 
1080  LOCATE  22.1:  PRINT  SPC C75 ) 

1085  LOCATE  23 , 5 : INPUT" ANY  CHANGES  ?  (0=NO,  1=YES) 

"  ,  ANS 

1090  IF  ANS  =  0  THEN  1095  ELSE  IF  ANS=1  THEN  1061  ELSE 
BEEP:  GOTO  1080 

1095  LOCATE  23.1:  PRINT  SPC(77) 

1100  LOCATE  23 , 1 3 : INPUT"Dr ess  < Shif t-PrtSc >  for  hard 
copy,  ENTER  to  continue" ,X6 
1110  ’ 

1130  ’  ***  SECTION  6.5  «** 


THEN  EN  =  4 :  GOTO  1080 


EN  =  5 :  GOTO  1080 


ELSE  IF  D$= "a" 
ELSE  IF  D$  =  "  b  " 
ELSE  IF  D$= "c " 
ELSE  IF  D$  =  "  d" 
ELSE  IF  D$= " e " 


(0  =  NO,  1 =  YES  ) 
THEN  1061  ELSE 


PRINT  USING "ENGINES : 
ESHP 

:  PRINT  USING" 


TOTAL  SHAFT  HP 
NUMBER  INSTALLED 
INSTALLED  WEIGHT 


GOSUB 


1130  ’  ***  SECTION  6.5  *** 

1 1 50  CLS 

1155,  LOCATE  2,5:  PRINT" *  TRANSMISSION  SELECTION  * 
(6.5)" 

1  1  :ESHPNT  USING"ENGINES:  TOTAL  SHAFT  HP 

Tl  PRINT  USING"  NUMBER  INSTALLED 

T1  Jg^gC^E^^PRINT  USING"  INSTALLED  WEIGHT 

T 1 7 1  LOCATE  ? , i  : COLOR  1  ,  1  .  1 

1172  PRINT" ~W=XMSNMENU / " : INPUT " " , XM : ON  XM  GOSUB 
1210,1212,1214.1216,1218,1220 

1173  COLOR  15,1:  PR INT " ~C= ALL/ " 

117,5  LOCATE  7,3:  PRINT  USING"TRANSMISSION :  POWER  RATING 
=  tttttlHtt  .#  SHP":  XMSNP 

USING"  WEIGHT 

PRINT"  LOCATE  _  9,2: 

1180  GOSUB  _  ~  T 250 T  GOSUB  T8007LOCATE 

1 . 1 , 0 : PRINT"~C=ALL/" :  GOSUB  2465 

1182  LOCATE  10,2:  PRINT"  REVISED  WEIGHT 

ESTIMATES  " 

1  1  ?J#j5$Ci"EWE2  ’  ^  :  PRINT  USING"  A/c  EMPTY  WT 

?186  LOCATfe  13,3:  PRINT  USING"  FUEL  WT 


PRINT  USING" 
LOCATE 


PRINT  USIKG" 

1  PAX  .3:  PRINT  USING" 

PRINT  USING" 

1192  ’  LOCATE 

PRINT" - 

1194  LOCATE  17.3:  PRINT  USING" 

=  nlttitin  .#  lbs"  ;  6w(  NN  ) 

1196  LOCATE  18,3:  PRINT  USING" 

PRIRT  USING" 


,/C  EMPTY  WT 
FUEL  WT 
PERSONNEL  WT 
USEFUL  LOAD 
16,2: 


GROSS  WT  ESTIMATE 
TOTAL  POWER  FOR  HOGE 
DISK  LOADING 


vn 
1  200 
1  203 

¥88* 
1  205 
1210 
1212 
1214 
1216 
1218 
1  220 
1  225 
1  230 
1  250 
«  #  *  # 

1  260 
1  270 
1  271 
1  272 
1  273 
1  275 
1  280 
1  290 
1800 
#  *  #  * 


TE  20,3:  PRINT  USING" 
"  ;  FM 


LOCATE  23,13: INPUT "press 
ENTER  returns  to  MENU",X6 
GOTO  120 


XMSNP 

XMSNP 

XMSNP 

XMSNP 

XMSNP 

XMSNP 


1  1  50 
1  900 
3100 
4400 
5700 
8500 


XMSNW 

XMSNW 

XMSNW 

XMSNW 

XMSNW 

XMSNW 


700 
1  1  00 
1  700 
3000 
4000 
6500 


FIGURE  OF  MERIT 


< Shif t-PrtSc >  for  hard 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


»«*«*****»* 


.  NEW  WEIGHT 

****«****»»»*»**»»**•»«*•*• 


***  SECTION  6.6  *** 


SUMMATION  SUBR 


LOCATE  1,1,0:  PRINT"~W=COMP/ " 

NN= 1 :  W(6,NN)=W6C(NN)+XMSNW+(ENGN»EWT(EN) ) 
FOR  1=1  TO  15  v 
WE2=WE2+W( I , NN ) 

NEXT  I 

NGW=WE2+FUEL+UL+PAX 
N  =  NN  :  GW(N)  =  NGW  :  RETURN 


WE2  =  0 


• *****«»*#»*»***»»»* 
»*tt»**#*»«**»*ft*«»ft*** 


POWER 


COMPUTATION  SUBR 


1820  ’ 

1830  CNT  =CNT  +  1 

1840  RTRHT  =  FHH  +  .5  »  GAP  % 

1850  GE  =  (AGL+RTRHT)  /  (2*R) 

1860  PGE  =  .5147  +  1.3432*GE  -  1.457*GE~2  +  .708*GE~3  - 
1  276*GE'N4 

1870  RV  =  RPM/9.55  :  VT  =  RV  *  R  :  VF  =  TAS  » 

1 . 68893 

1880  SIGMA  =  (1  -  6.87535E-06  *  PA)~4.2561 

1890  IF  PA=  0  THEN  RHO»RHO0  ELSE  IF  PA=4000  THEN 

RHO=. 001918  ELSE  RHO=SIGMA»RHO0  : ’ lb-sec~2/ft~4 

1900  MU  =  VF  7  VT  ,  % 

1910  T  =  1 .055  *  GW(N)  x 

1920  S  =  B  *  C  /(PIE  *  R)  x  , 

1930  TIPLOSS  =  1  -  X  SQR( 2  *  CT )  /  B) 

1940  RE  =  R  *  TIPLOSS 

I960  AE-  2*RE'N2*  (PIE-(PIE/1  80  )  *  ACOS(  SI  /  (  2*  RE  )  )  )  + 

SI  *SQR(REys2-(S1~2)74) 

1965  CT  =  T  /  (  RHO  *  AE  »  VT~2  ) 

1 970  K  =  1.46  -  .253  *  SR 

1980  AV  =  PIE  *  R~2  -  2  *  R  *  GAP 

1990  VI  =  SQR( T/( 2*RH0*AE ) ) 

2000  KU  N  ,=  SQRf SQR( i + . 25  * ( ( AV / AE ) * ( VF/ VI )  )~4  ) 

. 5*( (AV/AEWVF/VI  T)X2) 

2004  dl  -  gwcnV  /£z  *  PIE  *  R~2) 

2006  CL  =  6  *  CT/S 

2007  AR  =  R/C  , 

2008  BL  =  CT  /  S 

2009  IF  B*C*R/S1  >  3.75  THEN  COLOR  1,1,1:LOCATE  1,1,0: 
PRINT"~W=BLDSTRK/" : INPUT  X4  : PRINT " ~C  = ALL/ " :  COLOR  15,1 
2020  ’ 

2030  ’  ***  POWER  CALCULATION  *** 

2040  ’ 

2060  IF  GE  <=  2  THEN  PI  =  PGE  *  T  «  VI  *  K  *  KU  /550 
ELSE 

2070  PI  =  T  »  VI  *  K  *  KU  /  550  ,  .  ,  ,  „ 

2080  PO  =  ( CDO  *  B  *  C  *  R  *  VT~3  *  RHO  /  2200)*(1+  4.3 

*  MU/S2) 

2090  PP  =  VF~3  *  FF  *  RHO  /  1  1 00 
- -  -  *  FF  * 


2100  PC  =  ( T  *  VV  +  RHO 


VV~3  )  /  1100 


54 


OUTPUT  SUBR 


2105  FM  =  PI  /  (PI  +  PO) 

2110  PT  =  PI  +  PO  +  PP  +  PC 
2120  RETURN 
2130  ’ 

2465  »  *###»**#*##  COMP 

*************************** 

2468  ’ 

246|  ^LOCATE  2,47  :  PRINT" 

24!0.'.'LOCAii,4:F: 

24!5...L0CATW^»:  ip.Sgr 

2480..LO<m#6FI  w(4.5SfT  USING' 

2485.  MVT-*k>hoPRfNT  USING' 

2490  LOCATE  £.47  :  PRINT  USING" 

HHnnn  tt" m  W6A(NN) 

2495*  jggjTj*#9^J7  *  PRINT  USING"  6.  DRIVE  TRAIN/XMSN 
2500  LOCATg^g ,  J7?  ^PpJNT^  USING"  7.  FUEL  TANKS 
2505’ 'j2gjjE^M1 lU7: mm PRINT ;  USING”  8.  FLIGHT  CONTROLS 
2510‘LQCAT.E  1.2 1 47 j  ’PRINT  USING"  9.  AUX  POWER  (APU) 

3.4-7;  PRINT  USING"10.  INSTRUMENTS 


WT  RESULTS 

*  REVISED 
USING"  1 . 
USING" 
3. 

4  . 


COMPONENT  WT 
MAIN  ROTORS 
2 .  FUSELAGE 
LANDING  GEAR 
ENGINE  NACELLES 
5.  ENGINES 


MO 

25,.5...LOCJJkiV2(9,^ 

2520  MV!4*?7i.N5rT 
2525^AF:  i?itWR1NT  — 

???!... wcffflR 


25”...Lom#.F-4Ji,2j§i 

185!p.LOSMr,i?-tfi5.581HT 


USING" 1 1 .  HYDRAULIC  SYSTEM 
RINT  USING" 1 2 .  ELECTRICAL  SYSTEM 
USING" 1 3  -  AVIONICS 
PRtNT ^  USING" 1 4 .  FURNISHINGS 
SING" 1 5 .  AC  /  DE-ICE  EQUIP 
USING" 1 6 .  LOAD  HANDLING 
LOCATE  20,47: 


PRINT 
5.NN$ 


EQUIP. 

2550 

PRINT" - " 

2555  LOCATE  21,46:  PRINT  USING"REVISED  COMPONENT  WEIGHT 


Sfc' 

2560  RETURN 
999?  END 

10  1  PROGRAM  TR7.BAS . 19  SEPT  1987 

20 


30 

ft 

40 


•••  RANGE  AND  ENDURANCE  ••• 


50  KEY  OFF:  PRINT  "~L«TANDEM7/ " 
60  COLOR  Jj6j, 


PRINT  "~C-ALL/" 


70  DIM  ANG( 200 ) : IF  ENGN-0  THEN 
PTCR= 1 800 : PTCRSP- 1 890 :  PTMIN- 1 400 
80  ’TASMINP-70:  TASCR-130: 

PT(70)»1400:  PT(  80l«  ,  1  500:  PT(?0  )=■ 

1 730 : PTM 10)*  i860 : PT( 1  20  )»  2050:PT(1 
2600:  PT( 150)*  3000 
90  ‘ 


ENGN*2  ’ FUEL*2400 : 


30  ) 


TASMX-150: 
1  61  0:  PT(  1  00  )  = 
2300: PT( 1 40  )* 


100  CLS 
110  LOCATE 
(Chap  7 > " 
120  PRINT" 


1,27:  PRINT"  *  RANGE  and  ENDURANCE  » 


55 


130 

PRINT" 

FUEL  FLOW  ( 

lb 

/hr  ) 

1  40 

PRINT"  MI 

LI1 

TARY 

1  50 

PRINT" 

NORMAL 

1  60 

PRINT" 

CRUISE 

1  70 

PRINT" 

180 

PRINT" 

3. 

sp: 

= 

TEMP 

II 

1  90 

PRINT" 

200 

PRINT" 

210 

PRINT"  === 

5S  =  ' 

ii 

it 

ii 

ii 

220~ 

PRINT" 

1.  SFC  (lb/hr/shp)  2.  SHP 


SPECIFICATION  CONDITIONS:  ALTITUDE 

ZERO  HORSEPOWER  INTERCEPT  =  " 
PHANTOM  HORSEPOWER  »  " 


230 

240 

250 

260 

270 


*  MAX  ENDURANCE 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 


# •• 


*  MAX  RANGE  * 


280  PRINT" 

*  TOTAL  FUEL 
290  PRINT" 
PRINT" 
PRINT" 
PRINT" 
GOSUB  400: 


300 
310 
320 
350 
630 
360 
1  200 
390  ’ 
400 


*  CRUISE  PWR  & 
REQUIREMENTS  *" 


FUEL  FLOW: 

( spec ) 


II 
•  • 
II 
II 


GOSUB  800 


GOSUB  450: 
GOSUB  1000 


>  »  *  *  » 


GOSUB 

GOSUB 

SFC 


500:  GOSUB  600:  GOSUB 
1100:  GOSUB  1120:  GOTO 


INPUT 


SUBR 


401  ’ 

403  LOCATE  23,1 
405  LOCATE  23,10: 
CONSUMPTION  FOR  EACH 
410  LOCATE  4^2 
IF 
)CATE 
IF 
JCATE 
IF 
!TURN 


PRINT _SPC^77  ) 


PRIN1 

POWER 


1 


s£c< 

sit! 


6,2 

s£c< 


PRINT' 
1)-0  THEN 
1 : PRINT" 

2  3«0  THEN 
: PRINT" 

3  )»0  THEN 


:  COLOR  14, 

1  .  ENTER  SPECIFIC 
SETTING.":  COLOR  15,1 


FUEL 


SFC(  1 
420  L 
SFC  (2 
430  L 
SFC  (3 
445  R 

449  ’ 

450  ’***  SHP  RATING 


.  LOCATE  4,21 : 
PRINT"~V«DVN0/ "  : GOTO 
LOCATE  5,21: 
PRINT"~W-DVN0/" :60T0 
":  LOCATE  .6,21: 
PRINT"~W»DVN0/ " : GOTO 


INPUT 


Input"  ", 

410 

INPUT"  ", 
420 

INPUT"  "  , 
430 

SUBR 


3, 1  : 
LOCATE  23.10 
R  SETTING." 
CATE 
IF 
CATE 
IF 
CATE 
:  IF 

CATE  23, 
RETURN 

I 

’  »  »  * 


PRINT  SPC( 77 ) :  COLOR  14,1 
PRINT"  2 .  ENTER  RATED  SHP  FOR  EACH 
COLOR  15,1 

HINT"  ":  LOCATE  4,37:  INPUT"  " , 

-0  THEN  PRINT"~W»DVN07" :GOTO  460 
HINT"  -:  LOCATE  5,37:  INPUT"  ", 

0  THEN  PRINT " ~W-DVN07" : GOTO  470 
HINT"  ":  LOCATE  6,37:  INPUT"  ", 

-0  THEN  PRINT" 'W-DVN07” : GOTO  480 
PRINT  SPC(77) 


COMPUTE 


OUTPUT 


FUEL 


FLOW 


501  ’ 

505  FOR  I  =  1  TO  3 

5 10  WDOTF(I)  *  SFC(I)  *  SHP( I )  *  ENGN 

520  NEXT  X 

530  LOCATE  4,53:  PRINT  USING"  #####.##"•, WDOTF(I) 
540  LOCATE  5, 53:  PRINT  USING"  ## kk# . ; WDOTF( 2 ) 
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550  LOCATE  6,53:  PRINT  USING"  . tiU" : WDOTF( 3  ) 

595  RETURN 
599  ’ 

60’  ’ **»  spec  condition  input 


•  « .  ,*»»**«*#»#»***#»#########»#*### 


subr 


uulum  i  h-  ,  i 

CHANGES  ?  ( 0  =  NO ,  1 =YES  ) 


603  LOCATE  23.1:  PRINT  SPC(77)  :  COLOR  14,1 

605  LOCATE  23,6:  PRINT*  3.  ENTER  SPECIFICATION 

CONDITIONS  --  NORMALLY  4000  ft  MSL  95  deg  F":  COLOR 

15.1 

610  LOCATE  8,49:  PRINT"  ":  LOCATE  8,49:  INPUT"  ", 

ALT 

620  LOCATE  8,65:  PRINT"  ":  LOCATE  8,65:  INPUT"  ", 

TEMP 

625  RETURN 

629  ’ 

630  '»»»  compute  &  output  0  HP  interceptand  phantom  HP 

*»*»#»««*»»#*» 

63  1  * 

6  40  BETAH  = ( WDOTF (  1  )-WDOTF( 3  )  ) / ( ENGN * ( SH P (  1  )-SHP( 3  )  )  ) 

650  ALPHAH  =  WDOTF(  1  ) - (  ENGN *  BET AH  * SH P(  1  ) ) 

660  DELT A (  1  )  =  1  :  DELTA(  2  )  =  (  1 -6 . 87535E-06 *  ALT ) ~5 . 256 1 
670  THET A (  1  )  =  1  :  THETA( 2  )  =  ( 459 . 688+TEMP ) / 5 1 8 . 688 
680  FOR  1=1  TO  2: 

ALPHAH(I)  =  ALPHAH»DELTA( I)*  SQR (THET A (  I  )  )  :  NEXT  I 
690  FOR  1  =  1  TO  2:  PF  (  I  )  =  AL  PHAH  (  I  )  /  BET  AH  :  NEXT  I 
750  LOCATE  9, 10: PRINT  USING*  ZERO  HP  INTERCEPT  = 
+  .HH  fssl)  .Hti  (spec  )  " ; ALPHAHI 1  )  , ALPHAH( 2 ) 

760  LOCATE  10, 10: PRINT  USING*  PHANTOM  ftORSEPOWER  = 
+  .HH  tssl)  ( spec  )  " ; PF( 1  ) , PF( 2 ) 

770  RETURN 

780  ’LOCATE  23.1:  PRINT  SPC(77):  COLOR  14.1 

782  ’LOCATE  23,5:  INPUT"ANY  CHANGES  ?  (0=NO,1=YES) 

"  ,  ANS 

7&5  ’  IF  ANS  =  0  THEN  800  FLSE  IF  ANS=1  THEN  790  ELSE 

BEEP:  GOTO  798 

790  ’  LOCATE  23,38:  INPUT"WHICH  ITEM  (1  thru  3)  " , X7 
794  ’  ON  X7  GOSUB  400,450,600 

798  ’GOTO  780 

799  ’ 

800  ’***  COMPUTE  Ran^e  airspeed  and  power  then  output 

801  ’ 

805  PRINT"~'W  =  COMP/  " 

809  ANG( T ASM  I N  P- 1 0 )  =  999 

810  FOR  I  =  TASMINP  TO  TASMX  STEP  10  :’  change  to  step 
1  . ANG(  1-10)  too !  ' 

820  PWR  =  PF(  1  )  +  PT (  I )  :  TAS(  I )  =  I 
830  ANG(  I  )  =  PWR/TAS(I) 

840  IF  ANG(I)  <  ANG( 1-10)  THEN 

RH  PMXR  =  PWR : PTMXR= PWR- PF(  1  ) :TASMXR  =  TAS(  I ) 

850  NEXT  I 

860  FFMXR  =  RHPMXR  *  BETAH  :  PR  I NT " ~C  =  ALL / " 

870  LOCATE  13,8  :  PRINT  USING"  AIRSPEED  =  HHU 

kts" jTASMXR 

880  LOCATE  14,8  :  PRINT  USING"  POWER  =  , titt# 

SH  P " : PTMXR 

890  LOCATE  15,8  :  PRINT  USING"FUEL  FLOW  = 

Lb /hr"  -.FFMXR 

'100  '***  COMPUTE  MAX  Endurance  fuel  flow,  A/S  and  P 
f  r  om  HSE  program  ••** 

510  RHPMXE  =  PF ( 1 )  +  PTMIN  :  FFMXE  =  RHPMXE  *  BETAH 
920  LOCATE  13.48  :  PRINT  USING"  AIRSPEED  = 


change  to  step 


THEN 


5 1 0  RHPMXE  =  PF (  1  ) 
920  LOCATE  13.48 
kts" : TASMINP 
930  Locate  i4,48  : 

SH P " : PTMIN 

940  LOCATE  15.48 

ib/hr"; FFMXE 


PRINT  USING" 


PRINT 


"  POWER  = 

USING" FUEL  FLOW  = 


*7* 


V_  A  / 


950  ’ 

1000  '*#*  COMPUTE  SPEC  cruise  pwr  and  fuel  flow 

*»»*»«•»»#*#**»**#***#*»***• 


1001  ’ 

1010  RHPCRf 1 )  =  PF( 1 )  +  PTCR  :  FFCR  =  RHPCR(I)  *  BETAH 
1  020  RH PCR ( 2  )  =  PF( 2  )  +  PTCRSP  :  FFCRSP  =  RHPCR(2)  * 

BETAH 

1030  LOCATE  18,29:  PRINT  USING"###  kts":TASCR 

1040  LOCATE  20,3:  PRINT  USING"###,###  sftp  ###,### 

SHP" *  PTCR  PTChSP 

1050’LOCAT£  21,3:  PRINT  USING"###,###  lb/hr  ###,### 

lb/hr" :FFCR , FFCRSP 
1060  RETURN 


1  090  ’ 

1100  ’***  input  max  range  for  total  fuel  reqmnt 

»»»»»»*»»***«***#«»»» 


1101  ’ 

1103  LOCATE  23,1:  PRINT  SPCI77):  COLOR  14,1 
1105  LOCATE  23,10:  PRINT,S4.  ENTER  SPECIFICATION  MAX 
RANGE  IN  NAUTICAL  MILES  !":  COLOR  15,1 
1108  LOCATE  19,42:  PRINT  SPC(36) 

1110  LOCATE  19,43:  INPUT"4.  SPEC  MAX  RANGE  ( NM )  =  ",MXR 
1115  RETURN 

1119  ’ 

1120  >»##  compute  total  fuel  required 

*»#»##**«****##»**##>**##***#*#** 


TFUEL= (  . 1  *  BETAH  * ( SHP( 2 )  +  PF (  1  ) ) ) + 

:me*ffcrsp) 

IT  USING"  TOTAL  FUEL  REQUIRED  = 


1121’ 

1125  TIME  =  MXR/TASCR  ,  ,  s 

1  1  30  TFUEL= (  . 1  *  BETAH* ( SHP( 2 )  +  PF(  1  ) ) )  + 

(  .  25»RHPMXE*BETAH )  +  (TIME*FFCRSP ) 

1140  LOCATE  20,43:  PRINT  USING"  TOTAL  FUEL  REQUIRED  = 
###  ###  lbs" ‘TFUEL 

1156  LOCATE  ’21,43:  PRINT  USING"DESIGN  FUEL  CAPACITY  = 
###,###  lbs " ; FU&L 

115$  FUELDIF  =  ABS( TFUEL  -  FUEL) 

1160  IF  TFUEL  <  FUEL  THEN  1165  ELSE  1170 

1165  LOCATE  22,48:  PRINT  USING"  EXCESS  FUEL  = 

###,###  lbs " ; FUELDIF  :  GOTO  1180 

117(2  LOCATE  22,48:  PRINT  USING"FUEL  DEFICIENCY  = 

###,###  lbs" ; FUELDIF 

117$  LOCATE  1,1,0:  ’  PRINT"~W=FUELQUAN/ " 

1 1 80  RETURN 
1190  ’ 

1200  ’*«*  input  changes 

»»»*»»*»«»*»»«**»•*******»••»•»***>»*»*»»**»* 


»»»*»»*»«»*»*»*»»•******«»••»•»** 


*###»#*# 


1201  ’ 

1205  LOCATE  23.1:  PRINT  SPC(77):  COLOR  14,1 

1210  LOCATE  23,5:  INPUT" ANY  CHANGES  ?  (0=NO,1=YES) 

"  ANS 

1^20  IF  ANS=0  THEN  1300  ELSE  IF  ANS=1  THEN  1230  ELSE 
BEEP:  GOTO  1200 

1230  LOCATE  23,38:  INPUT"WHICH  ITEM  (1  thru  4)  •'  X7 

1235  IF  X7  <  1  OR  X7  >  4  THEN  GOSUB  8000  :GOT0  1230 

1240  COLOR  ',5.1:  ON  X7  GOSUB  400,450,600,1100 

1250  GOSUB  500: GOSUB  630:  GOSUB  800:  GOSUB  1000: 

GOSUB  1 1 20 

1280  GOTO  1200 

1  290  ’ 

1300  LOCATE  23,1:  PRINT  SPC(77):  COLOR  14,1 

1305  LOCATE  2 3 , 1 3 : IN PUT " p r es s  < Sh i f t - Pr tSc >  for  hard 

copy,  ENTER  to  continue", X5 

1310  COLOR  15,1  :  GOTO  9000 

8000  LOCATE  1,1,0:  PR  I NT " ~W  =  TRY AGA I N/ "  :  LOCATE  23,1: 
PRINT  S PC ( 77  )  :  RETURN 

9000  CLS :  PRlNT"~W=LOADNOTE/" :  CHAIN"TR 1 " , , ALL 
9999  END 
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